RICARDO AGUADO-—MUÑOZ 
AGUSTIN BLANCO 

JAVIER ZABALA 

RICARDO ZAMARREÑO 


BASIC 
BASICO 


CURSO DE PROGRAMACION 


; 
TS hiciMea 
ds 


SEPTIMA EDICION 


¡Ro 30 úl 
¡pr cha. 9-7 14 77 y 


ROA 00 


Reg. n2 4694  Sio, 1/10 

BASIC 

Basic-Básico. Curso de prooramación, 

Madrid/, /6. Distribuidor Editorial/, /1984/, /72, 
254 pp. 
24:17 


INFORMATICA TNFORMATICA-P 


De los mismos autores: 


PROGRAMAS COMENTADOS 
DE BASIC BASICO 


Ciento ocho problemas de programación explicados y co- 
mentados. 


Cincuenta de ellos responden a los ejercicios propuestos en el 
libro BASIC BASICO CURSO DE PROGRAMACION. 


Contiene: Juegos. 


Simulaciones. 


Gráficos y color. 


Cálculo numérico. 


DAJIL 
DASILO 


CURSO DE PROGRAMACION 


RICARDO AGUADO—MUÑOZ 
AGUSTIN BLANCO 

JAVIER ZABALA 

RICARDO ZAMARREÑO 


AUTORES EDITORES: 


RICARDO AGUADO-MUÑOZ AGUSTIN BLANCO 

General Cabrera, 23 Avda. del Generalísimo, 26 - 72 D. 
MADRID-20 ALCORCON (MADRID) 

Tfno: 91-270 91 50 Tfno: 91-611 32 43 

JAVIER ZABALA RICARDO ZAMARREÑO 
Vitrubio, 3 Bristol, 10 - 92 izda. 
MADRID-6 MADRID-28 

Tfno: 91-262 49 25 Tfno: 91-256 23 67 

DISTRIBUYE: 


GRUPO DISTRIBUIDOR EDITORIAL, $. A. 
Don Ramón de la Cruz, 67 
MADRID-1 
Tfno: 91 - 401 12 00 


Editan: 
(O) Ricardo Aguado-Muñoz, Agustín Blanco, Javier Zabala y Ricardo Zamarreño 
1.S.B.N.: 84-300-7294-2 


Depósito legal: M. 6.663-1984 
Imprime: Hijos de E. Minuesa, S. L. Ronda de Toledo, 24. Madrid-5 


INDICE 


U-LOS DEDENADORES: sonia ds rn o cta 


OT EÚStOTIA: teca ase ta tencia A nd 
0.2. Estructura de Un Ordenador 
0.3. Lenguajes de programación 


=— 


», BALBUCEANDO BASIC .......cocmoccmcmorncacoiaama 


1.1. Introducción 

1.2. Primeros pasos A 
1.3. Tecla RETURN -..- 20 ooocoocoocccaccconcccanocaconooo A 
1.4. Asignación: LET occitano nnnncnnnnanco te a 
1.5. Modificación de UN PTOBTAaMa 
1.6. Entrada de datos: INPUT ooo AGO 
1.7. Quées una vatiable. ui ió 
1.8. Cómo debemos imaginar una variable -..---- An > PS 


2. BE LENGUAJE BASIC ondas ti nas 


2.1. B.A.S.I.C. 

2.2. Las Renal. PT mn AR E 

2.3. Jerarquía de los ca ATILMÉÍICOS a 

24. Uso de parentesis. att tt 

2.5. Escritura de números o constantes AA AA TO 
EJERCICIOS 


3. CLARIDAD DE EXPRESION —-ooccococo coco nono none 


Jl. Comentarios y OSI vaciones 
3.2. Presentación de los resultados 00 


3.3. 
3.4. 
3.5. 


. TRANSFERENCIAS DE CONTROL 


4.1. 
42. 
4.3. 
4.4. 
4.5. 


Utilización de la coma (,) y del punto y coma (;) en PRINT ....... 
Clañdad en dos datos suscitar tr 
Cadenas de caracteres y variables de cadena ooo 
EJERCICIOS 20 0d bt tas 


La instrucción GO TO --- A AA 
La instrucción IF-THEN ------- O 
Operadores lógicos ------ A 
OLE ANILLA MAS. > instar ii 


Dos ejemplos interesantes  ---------- ii lc 
EJERCICIOS: csncoocionions pecar sd a o 


. PROCESOS ITERATIVOS: BUCLES 0. ooooooooocooooccnoonocoonoononnnnonona 


S.l. 
Saz: 
de 


5.4. 
3.3. 
SO 


Cielos BORSNEXIT sprint ins 
STEP: PISO 1500 in 
Variables y fórmulas en la instrucción FOR-NEXT oo 
Bucles sin salida: interrupción de UN PTOYgTaMa ooo 
Entradas y salidas en bucles FOR-NEXT -...........- A 
Bucles anidados -.------------------ A ticreabdao 
EPERCICIOS:- ocsrina atte di e 


. FUNCIONES DE LIBRERIA ------------- pps Die 


6.1. 
6.2. 


6.3. 
6.4. 
6.5. 
6.6. 
6.7. 
6.8. 


Introducción -..---.----- 

Parte entera de un número: : INT. 

Números aleatorios: RND 000 
Funciones trigONOMÉÍTICAS oo 
La función PRINT TAB 00 ti A 
Otras funciones para fórmulas y ODeraciones ooo 
Definición de una función cualquiera: DEF FN .....- PA 
Funciones para trabajar con palabras ooo 
EJERCICIOS. osito taste A 


Página 


S6 
61 
62 
67 


LT, LISTAS Y TABLAS 0000: a Ei 151 
7.1. Variables CON ÍNAICe ooo OA AS 151 
TZ. Fabricacion: de botellas vuestros iii scada 154 
7.3. El mayor de los números de una lista ooo 155 
7.4. Ordenación de listas oo tds 158 
7.5. Variables con índice doble ----oooooooocoococccncccnonononcnancnnnccninicnano 161 

EJERCICIOS: sesos tas ts o 163 

8. SUBRUTINAS edo ir eo dead acerca letra do e it pl sn 171 
Si IMtTOAUECION: * start sd AS tt ta 171 
8.2. Programación descendente ooo nooo cnn nnnnnnncnncnnncoo 174 
8.3. Hablando con el Ordenador a 176 
8.4. La opción múltiple: ON-GOTO; ON-GOSUB 2200oococoocccccccccccocococo 183 

ESERCICIOS: ha ti a At As Rd 188 

9. MANEJO DE DATOS: FICHEROS cs 195 
9.1. Introducción ......-- AA A 195 
9.2. Los datos en líneas des PprOgrama- ete 196 
Y RESTORE da dt ias 201 
9.4. Los datos en ficheros de memoria extema A ta e ZO 


9.3. Bicheros: secuenciales: orita tds 203 
96. Ficheros de acceso directo... itinere 206 
EJERCICIOS: cir ia 208 
APENDICE 
ESTUDIO DE LAS POSIBILIDADES GRAFICAS DE LOS MICRO- 
ORDENADORES A IS A 221 
Ad IMPOQUECCION::. Le cert rd A A AS 221 
ASI TADA IS A il: 222 
A.3 Representación de funciones con TAB... np 223 
A.4 Representación de más de una función 000 o 225 
A.S Segmentos o ERES A A AP AI 226 
A.6 Diagrama de barras horizontales ooo 229 


Pagina 


A.7 Curvas con el eje OX horizontal cocino 233 
A.8 Nubes de puntos correspondientes a distribuciones estadísticas 

bidimensionales. ccoo 236 
A.9 ¿Cómo comportarse en sociedad cuando no se posee dominio 

del cursor? NE POR NATA Nr PP EN 237 
A.10Representación de Superficies. ooo ccccccoccccccconcccccnnno 239 
A. 11 Mapas A AA IA 241 
A.12Gráficos animados ...... A A A E A e as 247 


INDICE ALFABETICO 


RECONOCIMIENTOS 


A nuestro amigo y director Ricardo Sánchez 
Ortíz de Urbina, sin cuyo decidido apoyo no hu- 
biera sido posible escribir este libro como fruto 
de una experiencia real, 


A nuestro amigo y compañero Saltés, a. cuya 
generosa genialidad se deben la portada y las 
ilustraciones de los capítulos. 


A nuestros amigos y compañeros del Semina- 
rio de Matemáticas, cuyas aportaciones críticas 
han contribuido a mejorar el original. 


Los autores 


Presentación 


El billete de avión o de tren que reservamos con días de antelación para un 
viaje soñado; el sueldo con el que procuramos llegar a fin de mes, calculado en 
ina nómina; las amenazas de Hacienda con sus medios, para que seamos vera- 
ves a la hora de declarar nuestros impuestos; la precisión del disparo de un 
cohete que hunde un barco, el acceso a un banco de datos, gigantesca bibliote- 
ca, que podré consultar sin moverme de mi casa, apretando las teclas de un 
microordenador doméstico, que me ha costado poco más que un televisor en 
color; la música de “Tornasol” que Luis de Pablo ha escrito en París; la pers- 
pectiva axonométrica de un edificio histórico que empieza a girar en la pantalla 
ante la mirada ávida del estudiante de arquitectura, la contabilidad y el recuen- 
to de miles de artículos del pequeño negocio de una ferretería; la exploración 
de un posible tumor cerebral en un gran hospital; la jurisprudencia acumulada, 
cuyos precedentes necesita el abogado para defender a un cliente... Estas y 
otras miles de aplicaciones de los ordenadores son ejemplos que se van multi- 
plicando cada día que pasa. 


Y no son sólo los míticos cerebros electrónicos, mastodontes electrome- 
cánicos o electrónicos que costaban millones de dólares, los únicos aparatos ca- 
paces de solucionar tales problemas. Ahora hay microordenadores que están al 
alcance de todos los bolsillos. Utilizan programas que se venden o alquilan con 
la facilidad con que compramos una cassette de la melodía que nos apetece. 
Estos pequeños ordenadores están desmitificando la Informática, haciéndola 
asequible a cualquier persona. 


Siempre ha habido resistencia al cambio que supone cualquier progreso re- 
lacionado con los medios de producción. Recordemos la resistencia que ofre- 
cieron los obreros frente a la introducción de las máquinas, al comienzo de la 
Revolución Industrial del siglo XIX. Sin embargo, los avances tecnológicos que 
no ponen en peligro el puesto de trabajo del hombre han sido fácilmente asu- 
midos; a veces con verdadero fervor, aun a sabiendas de que se corrían otros 
peligros no menores. Pensemos en el cine, la radio y la televisión. 
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La manera de incorporar racionalmente los riesgos del progreso es conocer 
las nuevas técnicas. En nuestro caso se trata de aprender un nuevo lenguaje. 
Hace unos años los expertos en Informática estaban obligados a aprender un 
lenguaje muy próximo al lenguaje-máquina, el lenguaje utilizado por el propio 
ordenador. La tarea era abrumadora: cada ordenador estaba construido por un 
fabricante, tenía un lenguaje propio que no compartía con los demás ordenado- 
res, y que además resultaba minucioso y complejo, muy alejado del lenguaje 
natural. Ahora existen lenguajes de programación de alto nivel que nos permi- 
ten comunicarnos con el ordenador, pero que están más próximos a nuestro 
lenguaje natural. Al ordenador le comunicamos un programa escrito en un len- 
guaje de programación y el ordenador lo traduce al lenguaje-máquina propio 
de su estructura. 


De entre todos los lenguajes de programación hay uno muy sencillo y re- 
lativamente potente a la vez. Está muy extendido, lo utilizan la totalidad de los 
microordenadores, y es el internacionalmente más aceptado para introducir a 
la Informática a los estudiantes de Enseñanza Secundaria. Es el lenguaje BASIC, 
que en versiones más modernas se extiende cada vez más al mundo de la Em- 
presa. Diseñado hace veinte años en Darmouth por Kemeny y Kurtz, el lengua- 
je BASIC es un lenguaje de programación que nos permite acercarnos cómoda- 
mente a este mundo misterioso. Permitirá que hablemos con el ordenador. 


El libro que el lector tiene en las manos es un Curso de Programación en 
lenguaje BASIC. Siguiendo sus capítulos, haciendo sus ejercicios cuidadosa- 
mente secuenciados, el lector aprenderá el lenguaje BASIC y además aprende- 
rá a programar, a diseñar programas, algoritmos operativos para analizar pro- 
blemas, tratarlos y reducirlos a una secuencia de instrucciones que la máquina 
realizará a velocidades increibles, dándonos la solución buscada. Es pues un cur- 
so de lenguaje BASIC y un curso de PROGRAMACION, 


Es además un libro que ha brotado de la realidad, de la experiencia. Sus 
autores son profesionales de la Enseñanza que han llevado a cabo una expe- 
riencia piloto: enseñar Informática a alumnos de Bachillerato. Trabajando en 
equipo en un Centro Oficial, el Instituto Piloto de Bachillerato “Cardenal He- 
rrera Oria”, han conseguido elaborar un método asequible y válido para apren- 
der a programar en el lenguaje BASIC. 


El libro está dirigido a los alumnos de Enseñanza Media, a los profesiona- 
les y científicos cuya formación tiene una laguna que les bloquea el acceso a 
numerosas investigaciones actuales en todos los campos de la actividad humana, 
y a todos los que quieran familiarizarse con un lenguaje que en un futuro muy 
próximo resultará imprescindible, sea cual sea la profesión del lector. 
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Hay pocos textos escritos en castellano con esta pretensión y ninguno, 
creo, que logre su objetivo con la claridad pedagógica y la altura técnica con las 
que éste lo hace. El libro que el lector está hojeando no viene a llenar una lagu- 
na, como se suele decir, sino a irrigar un desierto de desconfianza y recelo que 
impide a nuestra sociedad aceptar, aun deseándolo, el reto del futuro. 


Ricardo Sánchez Ortíz de Urbina 
Director del Instituto Piloto 
“Cardenal Herrera Oria”? de Madrid 
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0 
LOS ORDENADORES 


0.1 HISTORIA 


Podemos dividir los ordenadores en dos tipos: digitales y analógicos, según 
que traten información que varía de forma discreta o de forma continua. 


Aquí vamos a referirnos exclusivamente a ordenadores digitales. Aunque 
esto parece una restricción importante, hay que recordar que la naturaleza a 
nivel microscópico varía de forma discontinua, y si muchas magnitudes las de- 
tectamos como continuas es debido a las limitaciones de nuestros aparatos de 
observación. 


El tratamiento de las magnitudes discretas mediante instrumentos es muy 
antiguo. El primer aparato conocido es el ábaco, usado en el mundo medite- 
rráneo, en la China de Confucio y en las civilizaciones precolombinas. Prueba 
de su eficacia para el cálculo es el hecho de que en formas más evolucionadas se 
sigue utilizando en muchos países de Oriente. 


Pero tenían que pasar bastantes siglos hasta que aparecieran los primeros 
ingenios mecánicos para el tratamiento de cantidades discretas. 


Una de las dificultades que existían para realizar cálculos de un modo sen- 
cillo era debida a los sistemas de numeración empleados. Un hallazgo trascen- 
dental fue la invención por matemáticos hindúes del sistema de representación 
decimal que llegó a Europa a través de los árabes. 


A partir del Renacimiento, con el desarrollo del comercio y la banca, la 
navegación y la astronomía, se creó un ambiente favorable a las innovaciones 
tecnológicas. De esta época datan los primeros relojes y los muñecos de los relo- 
jes de Iglesia, que realizan siempre los mismos gestos. Pueden ser considerados 
máquinas de programa interior único. 


En el siglo XVII, Pascal construye la primera calculadora mecánica para 
sumar. Consistía en una serie de ruedas dentadas numeradas de cero a nueve. 
Cuando en una rueda se pasaba del nueve al cero, después de dar una vuelta 
completa, se producía el giro de una posición en la rueda situada a su izquier- 
da; era igualmente. una máquina con programa interior único. Leibniz, treinta 
años después, ideó otra máquina que realizaba las cuatro operaciones aritmé- 
ticas. No obstante, estas máquinas no pueden considerarse automáticas porque 
precisan la intervención constante del operador para realizar las maniobras 
que exige cada operación. 


El siguiente paso, de gran importancia en la mecanización del cálculo, fue 
dado por Charles Babbage (1792-1871) con su máquina de diferencias, ideada 
en principio para mejorar las tablas de logaritmos de su época. El proyecto fue 
abandonado por otro mucho más ambicioso, la máquina analítica, capaz de 
realizar cualquier operación matemática, sin precisar intervención humana du- 
rante el proceso de cálculo. Esta máquina tampoco llegó a terminarse por su 
complejidad mecánica, muy superior a las posibilidades de la época. 


Si bien las ideas de Babbage no llegaron a materializarse de forma definiti- 


va, su contribución es decisiva, ya que los ordenadores actuales responden a un 
esquema análogo al de la máquina analítica. 
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En su diseño, la máquina constaba de cinco unidades básicas: 1) Unidad 
de entrada, para introducir datos e instrucciones; 2) Memoria, donde se alma- 
cenaban datos y resultados intermedios; 3) Unidad de control, para regular la 
secuencia de ejecución de las operaciones; 4) Unidad Aritmético-Lógica, que 
efectúa las operaciones; 5) Unidad de salida, encargada de comunicar al exte- 
rior los resultados. 


Babbage adoptó el sistema de las tarjetas perforadas de Jacquard (mecáni- 
co francés, 1752-1834, que inventó a comienzos del siglo XIX, un telar auto- 
mático, en el que se introducían programas mediante tarjetas perforadas), para 
introducir en la máquina, las instrucciones del programa y los datos del pro- 
blema. 


La máquina de Babbage y el telar de Jacquard se diferencian de los inge- 
nios anteriores en que son autómatas con programa exterior. 


Las calculadoras mecánicas y la máquina de Babbage, constituyen la 
prehistoria de los instrumentos de cálculo. A lo largo del siglo XIX el gran 
desarrollo industrial provoca el consecuente aumento de la complejidad orga- 
nizativa de la sociedad. Surge el problema de tratar grandes masas de infor- 
mación. 


Herman Hollerith (1860-1929), funcionario de la Oficina de Censos de 
los Estados Unidos, ante la necesidad de mecanizar los datos del censo de 1890, 
y conociendo el sistema de tarjetas perforadas de Jacquard tuvo la idea de re- 
presentar la respuesta SI a una pregunta, mediante una perforación en un lugar 
de la tarjeta y la respuesta NO sin la perforación. Había nacido la codificación 
binaria de la información, perfectamente apta para ser representada por sopor- 
tes físicos con sólo dos estados. 


Todos los logros obtenidos hasta este momento, finales del siglo XIX y co- 
mienzos del XX, unidos a las condiciones sociales existentes en el primer tercio 
del siglo XX, (concentraciones financieras, mayor complejidad de los aparatos 
administrativos estatales y empresariales, necesidad de tecnología militar más 
avanzada, etc.) hacen posible el nacimiento del ordenador. Con él entramos en 
la Historia Antigua de los aparatos de cálculo. 


Howard Aiken (1900-1973), profesor de la Universidad de Harvard, ins- 
pirándose en las ideas de Babbage, diseñó y terminó en 1944 el primer ordena- 
dor de la Historia, el MARK I, a base de elementos electromecánicos. Consti- 
tuía la primera realización práctica de las ideas de Babbage. 


La máquina de Aiken era muy lenta (invertía en sumar dos números dos 
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décimas de segundo, y en una multiplicación de diez dígitos tres segundos, en- 
tre otras razones, por la inercia de sus partes móviles. 


Un gran avance desde el punto de vista tecnológico, supuso la construc- 
ción entre 1943 y 1946 del ENIAC, primera calculadora electrónica. Todas las 
operaciones, excepto las de entrada y salida, se realizaban mediante circuitos 
electrónicos a base de válvulas de vacío. Disponía de 18.000 tubos de vacío y 
cada vez que se ponía en funcionamiento, las luces de la ciudad de Filadelfia 
experimentaban un brusco descenso. En cuanto a la velocidad era muchísimo 
más rápido que el MARK I. Empleaba 0,003 segundos en realizar una multi- 
plicación de dos números de diez dígitos; pero presentaba un gran inconvenien- 
te porque cada problema exigía una configuración de los circuitos. 


En 1946 J. Von Neuman (1903-1957) enunció los principios de funcio- 
namiento de un ordenador en el que no hubiese que modificar los circuitos in- 
ternos para cada programa. En las máquinas anteriores la memoria almacenaba 
los datos y resultados intermedios. La idea de Von Neumann era que la memo- 
ria de la calculadora almacenara además el programa. Esta posibilidad daba a la 
máquina de Von Neumann un carácter universal, hasta el punto de que algunos 
autores consideran el año 1946 como año de nacimiento de la Informática. 


El primer ordenador comercial construido con estas ideas apareció en el 
mercado en 1951; se trataba del UNIVAC I. Posteriormente, también en la dé- 
cada de los cincuenta, se construyeron las series 600 y 700 de I.B.M. Los orde- 
nadores de esta década forman lo que se suele llamar la primera generación: 
utilizan válvulas de vacío y pueden ejecutar unas mil instrucciones por segun- 
do. Estaban orientados a los campos científico y militar. 


Con el descubrimiento del transistor en el año 1956 y su incorporación a 
los ordenadores en 1960, sustituyendo a las válvulas de vacío, comienza la se- 
gunda generación (1960-1965). El transistor por ser más pequeño, más barato 
y de fácil producción en grandes cantidades, permite construir ordenadores más 
pequeños, más potentes, más económicos y veloces (10% instrucciones por se- 
gundo). Se inicia así la producción en serie. Los ordenadores se impusieron rá- 
pidamente en el mundo de los negocios. 


Pronto se vió que más interesante que manipular transistores individuales 
conectados entre sí, era reunirlos en una sola pastilla de silicio, mediante técni- 
cas especiales. Así surgían los circuitos integrados, y la tercera generación en el 
año 1965. Con estos circuitos se ha conseguido mayor velocidad de cálculo y 
mayor potencia. Al ampliarse de modo espectacular las aplicaciones de los or- 
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denadores, se ha concedido gran importancia al desarrollo de lenguajes, para fa- 
cilitar cada vez más el uso de estos aparatos. 


Ejemplares típicos de esta generación son las series 360 y 370 de I.B.M. 


Posteriormente la noción de generación se ha desvanecido un poco. Los 
ordenadores actuales se construyen a base de circuitos integrados con una gran 
densidad de componentes (hasta más de 100.000 transistores en un solo chip). 
Se habla a veces de la cuarta generación. 


Las técnicas de integración han alcanzado tal desarrollo que permitieron 
comercializar en 1970 el primer microprocesador, que consiste en esencia en 
la unidad central del ordenador construida sobre un circuito integrado. Nacen 
los microordenadores, cuyo bajo precio, bajo consumo y gran velocidad de 
cálculo, han extendido su utilización de un modo inimaginable hace quince 
años. 


0.2 ESTRUCTURA DE UN ORDENADOR 


Todo ordenador consta de dos partes fundamentales: la Unidad Central 
de Proceso que designaremos por U.C.P. (en inglés C.P.U.), en la que se acu- 
mula la información y se procede a su tratamiento, y las unidades periféricas o, 
simplemente, periféricos (de entrada y de salida) que permiten la comunica- 
ción del ordenador con el exterior. 


0.2.1 UNIDAD CENTRAL DE PROCESO 

Se considera dividida en tres unidades: 

a) Memoria central 

b) Unidad aritmético-lógica, designada por U.A.L. 

c) Unidad de control 

Podemos representar el ordenador por el esquema elemental de la Fig. 0.1. 


En la Memoria se almacenan los datos y las instrucciones que forman el 
programa, así como resultados intermedios y finales del problema. 


La Unidad de Control extrae de la Memoria las instrucciones, las desco- 
difica e interpreta, enviando a la U.A.L. las órdenes oportunas para que ejecu- 
telas operaciones indicadas. 


SALIDA | PERIFERICOS 


nl 


PROGRAMA Y DATOS RESULTADOS 


MEMORIA 


instrucciones 


datos U.C.P. 


UNIDAD 
DE 
CONTROL 


Fig. 0.1 


En la U.A.L. se realizan los cálculos y comparaciones, para lo cual se 
reciben de la Memoria los datos necesarios para efectuar con ellos las opera- 
ciones indicadas por la Unidad de Control. Por último se transfieren a la Me- 
moria los resultados de dichas operaciones. 


Vamos a dedicar un poco más de atención a la Memoria. Podemos con- 
siderar la Memoria como un casillero de correos formado por un conjunto de 
casillas o celdas elementales. Cada casilla tiene un número que la identifi- 
ca y que es su dirección. El contenido de cada celda puede ser un dato o una 
instrucción. 


En el dibujo, la Memoria dispone de 24 celdas; y en la celda 18 está con- 
tenido el número 1324. 


Para el trasiego de la información entre la Memoria y la Unidad de Control 
y U.A.L. aquélla dispone de una serie de Órganos o registros auxiliares. 
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Una propiedad importante de la Memoria es que cuando una información 
se registra en una celda, desaparece la información que contenía anteriormente 
dicha celda. Por el contrario, la información permanece cuando la envía a las 
otras unidades. Manda un duplicado de su contenido. 


Las Memorias se caracterizan por una serie de propiedades cualitativas y 
cuantitativas como son: 


a) Tamaño de la celda 


Hemos dicho anteriormente que el ordenador trata la información codi- 
ficada en forma binaria, que podemos representar por los números O y 1, a los 
que se denomina bits. El bit es la unidad elemental de información y toma uno 
de esos dos valores. Surge la siguiente pregunta: cada celda de Memoria ¿cuán- 
tos bits contiene? Los tipos más corrientes de celda contienen 4, 6, 8, 12, 16, 
24 y 32 bits. El número de bits de cada celda se llama tamaño de celda. 


En las celdas de 8 bits, (se llaman octetos y bytes) por ejemplo, como cada 
bit puede tomar sólo dos valores (0 ó 1), puede haber 2% = 256 estados dife- 
rentes, 


desde 00000000 hasta 11111111 


Con esas 256 posibilidades se pueden almacenar 256 caracteres: las letras 
del alfabeto, los diez dígitos decimales, caracteres gráficos, etc. 


b) Capacidad de la memoria 


Es el número de casillas que contiene. Se suele expresar en múltiplos de 
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K = 2' = 1024. Así, una Memoria de 32 K bytes tiene 32 x 1024 = 32.768 
posiciones o celdas, aunque por comodidad K se toma como 1000 y hablamos 
de 32.000 direcciones. 


c) Tiempo de acceso a la información 


Es el tiempo transcurrido entre el instante en que se ordena acceder a una 
posición de Memoria para obtener una información, y el instante en que la in- 
formación está disponible. Los tiempos se miden en microsegundos (1 us = 107 f 
seg.) y en nanosegundos (1 ns = 107? seg.). Si el tiempo de acceso no de- 
pende más que de la dirección, se dice que es de acceso libre, directo o aleato- 
rio, y si es necesario leer todas las direcciones anteriores a ella, se habla de 
acceso secuencial. 


En un ordenador sería deseable disponer de una Memoria Central muy 
grande y rápida. Como esto resulta complejo y costoso, se ha optado por dis- 
poner de una Memoria Central, rápida y con capacidad de almacenamiento 
relativamente limitada y una Memoria Auxiliar, de gran capacidad, y tiempo 
de acceso grande. Memorias Auxiliares son las cintas, támbores y discos mag- 
néticos. 


0.2.2 SOPORTES DE INFORMACION. UNIDADES PERIFERICAS 


La Unidad Central de Proceso tiene que comunicar con el exterior, tanto 
para recibir información como para suministrarla. Ya dijimos que los órganos 
encargados de esta misión se denominan unidades periféricas o simplemente 
periféricos. La Unidad de Entrada debe leer la información en un soporte ade- 
cuado; los soportes habituales que nosotros utilizamos para intercambiar in- 
formación como libros, discos y otros, en general no sirven para nuestra rela- 
ción con el ordenador, por lo que se han ideado diversos soportes y los corres- 
pondientes periféricos especializados en cada tipo de soporte. Los soportes más 
utilizados son: . 


Tarjetas perforadas 
Cintas perforadas 
Cintas magnéticas 
Tambor magnético 
Disco magnético 
Diskette o Floppy disk 
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Los principales tipos de Periféricos son: 


a) Lectora-perforadora de tarjetas 


El soporte más antiguo es la tarjeta perforada. El modelo habitual es una 
cartulina de 187 x 82,5 mm que consta de 80 columnas y 12 filas. Un carácter 
es representado mediante una determinada combinación de perforaciones situa- 
das en una columna, según el código de Hollerith. 


El periférico de entrada correspondiente a este soporte es la lectora de tar- 
jetas, en la que por procedimientos mecánicos u ópticos, se detecta la existen- 
cia o no de agujeros. La velocidad de las lectoras oscila entre 200 y 2.000 tarje- 
tas por minuto. 


Si el ordenador comunica los resultados mediante tarjetas, el periférico de 
salida es la perforadora de tarjetas. La velocidad de perforación es menor que la 
de lectura. 


b) Lectora-perforadora de cintas 


El soporte consiste en una cinta continua en la que se perforan agujeros, 
de forma que cada carácter viene representado por una combinación de perfo- 
raciones en sentido vertical. 


Los periféricos correspondientes son la lectora de cintas y la perforadora 
de cintas. 


c) Lector-grabador de cinta magnética 
La cinta magnética es un soporte similar a la cinta de un magnetófono. 


La idea básica es la misma que la de la cinta de papel, pero en lugar de 
perforaciones hay puntos magnetizados. Del mismo modo que en la cinta, cada 
carácter está expresado por un grupo de señales magnéticas en el sentido trans- 
versal de la cinta. 


La capacidad de la cinta contenida en un carrete de 20 cm de diámetro y 
2 0 3 de anchura es de varios millones de caracteres. 


El periférico lector-grabador consiste en uno o varios pares de cabezales, 
uno de lectura y otro de grabación. La cabeza de lectura tiene la ventaja de ser 
unas 50 veces más rápida que el lector de tarjetas. 
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d) Tambor magnético. Lectora-grabadora de tambor magnético 


La cinta magnética es un soporte de acceso secuencial; para acceder a un 
dato hay que leer todos los anteriores a él. Para subsanar este inconveniente se 
creó el tambor magnético, que consiste en un cilindro con una capa de sustan- 
cia magnética. La información está contenida en pistas circulares paralelas de su 
superficie. El tambor gira continuamente sobre su eje, y una serie de cabezas de 
lectura y grabación, una para cada pista, explora dichas pistas, consiguiéndose 
una mayor velocidad de lectura. 


e) Lectora-grabadora de discos magnéticos 


El tambor magnético almacena menos información que la cinta, por lo que 
se ideó el disco magnético. La información se almacena en circunferencias con- 
céntricas llamadas pistas, situadas en las dos caras del disco. 


Generalmente se utilizan paquetes de discos de cinco o más unidades. 
Cada disco lleva su correspondiente cabeza lectora-grabadora, que puede situar- 
se mediante un brazo sobre la pista deseada. 


El disco resuelve el problema de la capacidad de almacenamiento del tam- 
bor, con la contrapartida de una menor velocidad de lectura. 


Una modalidad del disco magnético es el diskette o floppy disk, de un ta- 
maño aproximado al de un microsurco de 45 r.p.m. 


Los tambores y discos admiten acceso directo y secuencial. Estas unidades 
magnéticas pueden funcionar también como memorias auxiliares. 


f) Impresora 


Es uno de los órganos más comunes para la salida de resultados de un or- 
denador. Similares a máquinas de escribir, pero con carro fijo y dispositivo por- 
tacaracteres móvil, que puede adoptar forma de barra, tambor, etc. 


La velocidad de impresión oscila entre 200 y 300 líneas por minuto (y 
cada línea de 40 a 130 caracteres). 


g) Consola 


Este periférico facilita la comunicación entre el ordenador y el operador. 
El modelo más corriente dispone de un teclado y una impresora o un teclado 
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y una pantalla de rayos catódicos. Los caracteres tecleados o enviados por el 
ordenador aparecen sobre la pantalla. Por su comodidad la pantalla de T.V. 
está cada vez más extendida. 


Por último, citemos las lectoras de marcas ópticas, donde la codificación 
se hace a base de la presencia o ausencia de marcas oscuras, y las lectoras ópti- 
cas de caracteres que pueden leer documentos, siempre que estén escritos con 
caracteres producidos por impresoras especiales. 


0.3 LENGUAJES DE PROGRAMACION 


El ordenador es una máquina que sólo puede realizar operaciones muy 
simples (sumar, comparar, etc.), pero a gran velocidad. Para que el ordenador 
ejecute los cálculos más o menos complicados de un problema, es necesario 
darle una detallada secuencia de instrucciones a seguir. El conjunto de estas ins- 
trucciones forma el programa. 


En los primeros tiempos de la informática, había que almacenar el progra- 
ma en la memoria utilizando el único lenguaje que entiende el ordenador: el 
lenguaje máquina, en el cual cada instrucción es una ristra de ceros y unos. 


Veamos, por ejemplo, cómo podría ser representada la instrucción de 
sumar dos números en este lenguaje de máquina. 


Si dividimos, imaginariamente, la celda de memoria en cuatro partes igua- 
les, de izquierda a derecha, cada grupo de bits podría presentar: 


— Código de la operación (en nuestro caso, código de la suma). 


— Dirección de la celda de memoria en la que se encuentra el primer su- 
mando. 


— Dirección de la celda de memoria en la que se encuentra el segundo 
sumando. 


— Dirección de la celda de memoria en la que se almacenará el resultado. 


0101 0111 1001 1101 


Una celda cargada con la anterior información nos dice que se suma (el 
código de la suma nos lo da el grupo 0101) el contenido de la celda de direc- 
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ción 0111, con el de la celda 1001 y que el resultado se almacena en la celda 
de dirección 1101. Por comodidad se puede representar en el sistema decimal 


EXATABAECS 


Esta es una instrucción de tres direcciones. También se podría representar 
mediante una sola dirección, lo que supone la existencia de un registro espe- 
cial llamado acumulador. 


S 134 


En este caso la instrucción ordena sumar al contenido del acumulador el 
contenido de la celda de dirección 134, y dejar el resultado en el acumulador. 


Como puede suponerse, la programación, incluso de problemas sencillos, 
en este lenguaje es sumamente laboriosa; además de requerir por parte del pro- 
gramador el conocimiento de la “geografía” de la memoria. 


Para subsanar estos inconvenientes, y a medida que se ampliaban las posi- 
bilidades de aplicación de los ordenadores, surgieron nuevos lenguajes destina- 
dos a facilitar la relación del usuario con la máquina. 


En una primera etapa se sustituyó el código binario de instrucción por gru- 
pos de letras mnemotécnicos, lo que dio lugar a un lenguaje llamado £Ensambla- 
dor. Así, el código de la operación suma se puede representar por SUM, etc. 


Pero las instrucciones así escritas guardan aún demasiada relación con el 
lenguaje máquina, por lo que fue necesario desarrollar lenguajes de programa- 
ción parecidos a los lenguajes humanos, a los que se llamó lenguajes de alto 
nivel, distinguiéndolos de los lenguajes tipo Ensamblador a de bajo nivel. Los 
lenguajes de alto nivel son lenguajes universales; el usuario sólo ha de tener en 
cuenta el problema a resolver y no la estructura interna de cada ordenador. 


0.3.1 INTERPRETES Y COMPILADORES 


Con el empleo de estos lenguajes aparecería un nuevo problema. El or- 
denador sólo entiende el lenguaje máquina y es necesario dotarle de unos pro- 
gramas traductores que pasen los lenguajes de bajo o alto nivel a lenguaje má- 
quina. Se llama programa fuente al programa escrito en lenguaje evolucionado 
y programa objeto al que resulta de traducirlo al lenguaje máquina. 
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Hay tres tipos de traductores: 


a) Ensambladores 


Se emplean para traducir programas en ensamblador. Toda instrucción 
del programa fuente da lugar a una sóla instrucción del programa objeto. 


b) Compiladores 


Se emplean para traducir programas escritos en lenguajes de alto nivel. 
Una instrucción del programa fuente se traduce en varias del programa objeto. 


c) Intérpretes 


Tienen los mismos fines y características que los compiladores. La dife- 
rencia entre ellos es que el programa compilador traduce todo el programa 
que posteriormente se ejecutará, y el programa intérprete traduce una instruc- 
ción y no pasa a la siguiente hasta que la anterior es ejecutada. 


0.3.2 BREVES CONSIDERACIONES SOBRE LOS LENGUAJES DE ALTO NIVEL 


Estos lenguajes presentan innegables ventajas, por su potencia y su relativa 
facilidad de manejo, y algunos inconvenientes, debido a la necesidad de mayor 
memoria central para almacenar el programa traductor. Por otra parte, el pro- 
grama tarda más tiempo en ejecutarse y ocupa más memoria que el programa 
escrito directamente en lenguaje máquina. Esta última objeción puede plantear, 
en ocasiones, la conveniencia de utilizar lenguaje máquina en aquellos proble- 
mas que exijan una gran velocidad de ejecución, como puede ser el caso de la 
reserva de billetes de ferrocarril o avión, control de naves espaciales, contabili- 
dad bancaria, etc. 


Por último, para que se observe lo tedioso de un programa escrito en len- 
guaje máquina, tratemos un sencillo problema: el cálculo del máximo común 
divisor de dos número por el algoritmo de Euclides. 


Empleamos el lenguaje máquina y el ensamblador que a continuación se 
proponen: 
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Lenguaje máquina 


n— 


Lenguaje convencional (se pondría en sistema Lenguas 
iS ensamblador 
binario) 
Poner Aen N 1,A,N PON,A,N 
Llevar el valorde Ma N 2,M,N MOV M,N 
Ira N 3,N IR,N 
Sumar lo que hay en M con lo que 4.M,N,P SUM.M,N,P 
hay en N y dejar el resultado en P 
Restar... S,M,N,P RES,M,N,P 
Multiplicar... 6,M,N,P MUL,M,N,P 
Dividir... 7,M,N,P DIV,M,N,P 
Si lo que hay en M es igual a lo que 
hay en N, ir a P 8,M,N,P COM,M,N,P 
Tomar la parte entera de M y dejar- 
la en M 9,M INT,M 
Escribir lo que hay en M 10,M ES,M 
FIN 11 FIN 


| 


Cuando digamos “Poner A en N”, queremos decir “Poner el dato A en la 


celda de memoria cuya dirección es N”; y “Sumar lo que hay en M... 


” 


es la for- 


ma abreviada de expresar “Sumar lo que hay en la celda de memoria cuya di- 
rección es M, con lo que hay en la celda de memoria cuya dirección es N, y 
dejar el resultado en la celda de dirección P”. 


El cálculo del m.c.d., en el lenguaje máquina propuesto tendría la forma: 
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Lenguaje convencional Lenguaje máquina 


1) Poner A en 20 1,4,20 
2) Poner B en 21 1,B,21 
3) Poner 0 en 22 1, 0, 22 
4) Dividir lo que hay en 20 por lo que hay en 21 
y poner el resultado en 23 7,20,21,23 
5) Tomamos la parte entera de lo que hay en 23 
y lo dejamos en 23 9,23 
6) Multiplicar lo que hay en 21 por lo que hay 
en 23 y dejar el resultado en 23 6,21,23, 23 
7) Restar de lo que hay en 20 lo que hay en 23 
y poner el resultado en 23 5,20, 23, 23 
8) Si lo que hay en 23 es igual que lo que hay en 
22 ira 12 


9) Llevar el valor de 21 a 20 
10) Llevar el valor de 23 a 21 
11) Ira4 
12) Escribir lo que hay en 21 
13) FIN 
Eo 


Con un lenguaje de alto nivel como BASIC, el programa presenta una gran 
sencillez debido a la potencia de las instrucciones, como tendrás ocasión de 
comprobar en las páginas siguientes. 
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1 
BALBUCEANDO BASIC 


1.1 INTRODUCCION 


Mucha gente cree que los ordenadores son máquinas muy inteligentes, y 
que resuelven todos los problemas. Pero ¿qué sucede cuando te pones delante 
de un ordenador y lo enciendes? Que la máquina saca un mensaje, más bien 
raro, en la pantalla y no hace nada, sólo espera. 


El ordenador no hace nada si no se le pide correctamente. La forma de pe- 
dirle algo, de decirle lo que queremos, se llama programa. Lo que es sorpren- 
dente es la velocidad con que ejecuta los programas, la capacidad de cálculo que 
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tiene; pero carece de inteligencia. Hay que darle todo muy detallado, y si tú te 
equivocas él se equivoca. 


Y ¿cómo se le mete un programa? ¿Entenderá igual a un chino que a un 
español? Se han ideado unos cuantos LENGUAJES de programación. Aquí va- 
mos a estudiar el BASIC, que es el más universal y el más apropiado para co- 
menzar. 


Una pequeña dificultad es que el LENGUAJE BASIC ofrece ligeras modi- 
ficaciones en las distintas marcas comerciales y según los modelos de ordena- 
dores. Trataremos de enseñar las versiones más extendidas haciendo algunas ob- 
servaciones sobre estas posibles variantes. Por ejemplo: vamos a suponer desde 
ahora que el ordenador con el que trabajas consta de un teclado, como una má- 
quina de escribir, y una pantalla de televisión. Si en vez de pantalla tuvieras 
impresora las cosas cambian un poco, pero muy poco, y te resultará fácil adap- 
tar estas lecciones a tu caso personal. 


1.2 PRIMEROS PASOS 


Vamos a iniciarnos en el lenguaje de programación BASIC. Empezaremos 
escribiendo un pequeño programa: 


19 PRINT 2*3.1416*5 
20 END (1 


Este programa se compone de dos líneas, la 10) y la 20), y en cada línea tie- 
ne una instrucción o sentencia. Cada línea comienza por un número natural que 
indica al ordenador el orden en que las tiene que ejecutar. 


El programa (1) es muy sencillo; sirve para calcular la longitud de una cir- 
cunferencia de radio 5. 


El asterisco (*) es el símbolo que reserva el BASIC para la multiplicación, 
y que no debes confundir con. ó x. 


Observa que 3.1416 es el valor aproximado de rT, y que la coma decimal (,) 
es sustituida por el punto (.), siguiendo la notación anglosajona. 


La cifra cero se escribe () para distinguirla de la letra O. 


PRINT es la instrucción que imprime el resultado de la operación que se 
indicaba a continuación. Print = Imprimir (Sacar en pantalla). 
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END indica que el programa se ha terminado. End = Fin. 


Te habrá sorprendido que la numeración de las líneas sea 1M), 2f) en vez de 
1, 2. Podíamos haber puesto 1, 2; puedes hacer la prueba y el programa funcio- 
na igual. Pero es frecuente que en los programas haya olvidos, y que tengamos 
que intercalar varias líneas entre dos ya escritas. Y así entre la 10) y la 20) queda 
lugar para las 11, 12,..., 19. Los buenos programadores numeran siempre de 10) 
en 10 para no pillarse los dedos si hay que intercalar líneas. 


Se pueden escribir las líneas salteadas: 


20... 
MM... 
40... 
E 4: 


ya que la máquina las ordena inmediatamente según el número de línea. 


1.3 TECLA RETURN 


Al teclear una línea en el ordenador hay que terminarla siempre pulsan- 
do la tecla . Ya que es necesario indicarle de alguna forma a la má- 
quina que has terminado la línea, que no vas a seguir añadiendo operaciones. 
Return = Retorno: equivale al retorno del carro de una máquina de escribir. Tú 
das por terminada una línea y el ordenador la mete entonces de golpe en su me- 


moria. Nota: algunos ordenadores llaman a esta tecla |END LINE|. (End line = 
= Fin de línea). 


Así pues, para comunicar el programa (1) al ordenador tecleamos: 


19 PRINT 2*3.1416*5 | RETURN 


= (cursor) 


Los ordenadores suelen tener un cursor, o señal luminosa, que indica en 
qué lugar se imprimirá la próxima letra o número que escribas. Con la tecla 
[RETURN ] el cursor ha pasado, de estar a la derecha del 5, a estar al principio 
de la línea siguiente; en la posición adecuada para poder escribir la segunda 
línea: 


29 END 


= (cursor) 
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Una vez que hemos comunicado el programa al ordenador, su ejecución se 
realiza formando la palabra RUN y pulsando la tecla | RETURN]. Run =Co- 
rrer. En la línea siguiente aparecerá el resultado: 31.416. La pantalla quedará 
así: 


10 PRINT 2*3.1416+*5 
20 END h 
RUN 

31.416 


Recuerda esto: el ordenador no se da por enterado de una instrucción 


hasta que no se pulsa la tecla | RETURN]. 


En los programas que siguen nosotros no escribiremos ya esta tecla, lo da- 
mos por supuesto, pero tú la tendrás que pulsar cada vez que dictes una instruc- 
ción al ordenador. 


1.4 ASIGNACION: LET 


El programa (1) calcula únicamente la longitud de una circunferencia de 
radio 5. Para hallar la longitud de circunferencias de otros radios hay que modi- 
ficar la línea 1M, y esto parece pesado. Vamos a mejorar el programa, con obje- 
to de que se adecúe al cálculo de longitudes de circunferencias para distintos 
radios. Una primera nrodificación puede ser ésta: 


10 LET R=5 

24 LET L=2*3.1416*R (2) 
30 PRINT L 

40 END 


Las líneas 10 y 20 contienen sentencias de asignación, para lo que se utili- 
za la instrucción LET. (Let = Sea). En la línea 10 a la variable R se le asigna el 
valor 5. En la 2f la variable L toma el valor 31.416, resultado de multiplicar 
2+3.1416*5. Al ejecutar la línea 3, el ordenador sacará en pantalla el valor de 
L, es decir, el número 31.416. 


Al programar se puede prescindir de la palabra LET y teclear sencilla- 
mente: 


10 R=5 
29 L=2*3.1416*R 
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con el mismo significado que en (2). Es decir, LET es opcional, y los programa- 
dores no suelen utilizarlo. 


En el programa (2) para hallar longitudes de circunferencias de radios dis- 
tintos hay que corregir la línea 16. 


1.5 MODIFICACION DE UN PROGRAMA 


Seguimos con el programa (2) sobre longitud de circunferencias. Si quere- 
mos calcular la longitud de una circunferencia de radio 8 tendremos que modi- 
ficar el programa, cambiando la línea 1( por: 


19 LET R=8 


Si todavía teníamos el programa (2) en el ordenador la modificación se 
efectúa escribiendo la nueva línea: 


19 LET R=8 (y pulsar [RETURN|]). 


La antigua línea 1f queda sustituida inmediatamente por la que acabamos 
de escribir. 


El comando LIST (List = Listar) permite obtener en la pantalla el listado 
del programa que tiene actualmente el ordenador. Así pues, escribiendo LIST 
(sin olvidar [RETURN] _) en la pantalla aparece el nuevo programa: 


10 LET R=8 

20 LET L=2*3.1416*R (3) 
30 PRINT L 

4 END 


y comprobamos que, en efecto, la nueva instrucción ha sido incluida en el pro- 
grama. Si ahora pulsamos RUN, la pantalla queda así: 


RUN 
50.2656 


La longitud de la circunferencia de radio 8 es 50.2656. 


Cuando lo que te interesa no es modificar un programa, sino escribir un 
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programa nuevo, debes empezar por borrar el antiguo. El comando NEW borra 
el programa de la memoria. Antes de teclear alguno de los programas de los 
ejercicios, o los del capítulo próximo, debes escribir NEW, o apagar y encender 
el ordenador. 


1.6 ENTRADA DE DATOS: INPUT 


Los programas (2) y (3), desde un punto de vista práctico, no son muy 
interesantes, puesto que hay que modificarlos cads vez que se cambia de radio. 
Los hemos puesto con fines didácticos al objeto de introducir algunos concep- 
tos del BASIC. 


Para una persona que tenga que calcular longitudes de muchas circunferen- 
cias, en función de los diferentes radios, es interesante disponer de un programa 
que lo haga para cualquier radio. Es evidente que al ejecutar este programa el 
ordenador nos deberá preguntar cuál es el valor del radio; nosotros deberemos 
introducir este valor desde el teclado. Todo esto se logra con la instrucción 
INPUT (Input = Entrada). 


19 INPUT R 

20 LET L=2*3.1416*R (4) 
30 PRINT L 

40 END 


Cuando corramos este programa por medio del comando RUN, el orde- 
nador encontrará la instrucción o sentencia INPUT y se parará mostrando una 
interrogación (?). Espera que le demos el valor de R. Si deseamos que calcule 
L para el valor R=8 bastará escribir 8 , e inmediatamente aparecerá 
el resultado en la línea siguiente: 


RUN 
28 
5.2656 


Si volvemos a ejecutar el programa, en pantalla tendremos: 


RUN 
9 


Y el ordenador queda dispuesto para recibir un nuevo valor de R. 
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1.7 QUEES UNA VARIABLE 


Una variable es una ““palabra”” que comienza necesariamente por una letra, 
y que puede ir seguida de otras letras o de cifras. Por ejemplo: 


Son variables: R, RADIO, RAD, R1, RAD23, AA, AMOR 
No son variables: 2A, TO+, PLA, 123 


Tampoco son variables las palabras utilizadas por el BASIC, como por 
ejemplo: PRINT, END, LET, RUN, INPUT, LIST; ni tampoco palabras que las 
contienen como: ALETA, OFENDE, LETRA, SENDA, etc. 

Muchos ordenadores sólo distinguen los dos primeros caracteres de las 
variables; es decir, para estos ordenadores dos variables que tienen los dos pri- 
meros caracteres iguales, no se diferencian. Así RAD y RADIO representan la 


misma variable; mientras que R, RAD, AR, y Rl1 son variables distintas. 


OBSERVACION: Algunos ordenadores sólo admiten como variables una 
letra, o una letra seguida de un número, como A, B,C, A2, B7, Cf, etc. 


1.8 COMO DEBEMOS IMAGINAR UNA VARIABLE 


Debemos imaginar una variable como una caja capaz de “guardar” un nú- 
mero. Un número se “guarda” en una variable por medio de una asignación 
LET o de una entrada INPUT. 


10 LET A=5 
Con esta instrucción la variable A toma el valor 5. 


1 LET A=S 
20 LET B=A 


Ahora en la línea 20) la variable B toma el valor de A, es decir 5; sin que 
por ello se varíe el contenido de A. Es como si se pasara una copia del conteni- 
do de A a B. 


Obsérvese que el “paso” del contenido se realiza de derecha a izquierda: 
en la línea 2f, B toma el valor de A (y no A el de B). Cuando queremos asignar 
un valor a una variable, ésta ha de situarse necesariamente a la izquierda del sig- 
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no igual (=). A la derecha del signo igual (=) puede haber un número, una varia- 
ble o una expresión aritmética. Observa el siguiente programa: 


19 LET N=3 
20 LET N=N+1 
30 PRINT N 

4) END 


En la línea 1, N toma el valor 3. En la línea 20, N toma el valor N+1 = 
= 3+1 =4. Al correr el programa aparecerá en la pantalla: 


RUN 
4 


Fíjate que en matemáticas la expresión N = N+1 no tiene sentido. Sin em- 
bargo en Informática sí, porque primero se calcula el valor a la derecha del sig- 
no igual (=) en la línea 2) (N+1=3 + 1 =4), y después se asigna ese valor a la 
variable que está a la izquierda de igual (=), haciendo en este caso N= 4. 


19 LET B=7 (B toma el valor 7) 

2Q LET A=3+B (A toma el valor 1(; + es el signo de la adición) 

3 LET B=A (B toma el valor 10) 

40 LET N=3 (N toma el valor 3) 

SQ LET N=N>+1 (N tomael valor 4) 

60 LET C=3*7  (C toma el valor 21) 

70 LET 9=D (Sentencia incorrecta. Error de sintaxis. 9 no es nom- 


bre de una variable) 
80 LET A+B=F (Sentencia incorrecta por igual motivo) 


Si en un programa aparece una variable a la que no se ha asignado previa- 
mente un valor, se entiende que su valor es (. 


Al estudiar la instrucción INPUT has visto que es otra forma de “guardar” 
un número en la “caja” de la variable. 


RESUMEN 


En el siguiente cuadro recordamos los conceptos e instrucciones del len- 
guaje de programación BASIC que, por el momento, tienes que conocer. Si no 
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estás seguro de algún concepto o de cómo funciona una instrucción, búscalo en 
el texto antes de continuar. Si lo comprendes todo ya puedes empezar a balbu- 


cear BASIC, a lo que te ayudarán los ejercicios de la página siguiente. 


on 
E RECUERDA 
El 
Programa PRINT 
Línea END 
Numeración de las líneas RUN (comando) 
Instrucción o sentencia LET A=B 


Comando 

$ 

de 

. (punto decimal) 
Dy0 


Asignación 

N=N+ 1 

Variable. Nombres de variables. 
Palabra reservada 


Sustitucion de una sentencia por 
otra 
Cursor 


LIST (comando) 
INPUT 
NEW (comando) 
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1.2) 


1.3) 


1.4) 


1.5) 


1.6) 
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EJERCICIOS 


Todas las sentencias BASIC que siguen son incorrectas. ¿Por qué? 


10 LET A=2,5 
20 IMPUT R 
30 LET 27=B 
4f LET C=2.50 
SY LET 2*F=T 
6f LET RUN=8 
79 LET A=B. 


¿Son correctas las siguientes proposiciones? 


10 LET A=5 

20 LET N=A>+1 
3Q LET M=2x*A 
4f LET P=2M+4P 
SY LET Q=2*H 


Escribe un programa BASIC que calcule áreas de círculos. 


Escribe un programa que dé al mismo tiempo la longitud de la circunfe- 
rencia y el área del círculo. 


Explica qué propósito tiene el siguiente programa: 


19 INPUT R 

2Q LET A=4*3.1416*R*R 
30 PRINT R 

4 PRINT A 

SQ END 


Decir si el siguiente programa está correctamente escrito: 


19 IMPUT R 

20 LET V=4*3.1416*R*R*R/3 
30 PRINT V 

4 END 


1.7) Decir el objeto del siguiente programa, y si está correctamente escrito: 


19 INPUT R 

20 INPUT H 

30 LET V=3.1416*R*R*H/3 
40 LIST 

Sp PRINT 

60 END 


1.8) ¿Qué indica la instrucción END en un programa? 

1.9) Escribe un programa usando dos instrucciones LET. 

1.10) ¿Qué ocurre al oprimir la tecla ? 

1.11) ¿Qué instrucción se usa para introducir datos en un programa? 


1.12) ¿Qué hace falta para ejecu tar el siguiente programa? 


19 PRINT 7+5 
20) END 


1.13) Escribe un programa utilizando las instrucciones PRINT, INPUT y LET. 


1.14) ¿Qué indica la siguiente línea? 20 LET X=Y 
¿Y la siguiente? 3f LET V=3 


1.15) La instrucción INPUT ¿qué papel desempeña en un programa? 
1.16) Escribe un programa que calcule el área de un rectángulo de lados A y B. 
1.17) El alcance de un proyectil, en función de su velocidad y del ángulo de 
salida, es 
2 


L=-— sen (2) 
g 


Que en BASIC se escribe: L=VQ?2* SIN(2* A)/9.80665 
Haz un programa que, dándole los valores de Vo y ez, dé el alcance. 


OBSERVACION: La función SIN trabaja con radianes, por lo que, como 
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queremos introducir el ángulo en grados, antes de calcular el SIN debes 
pasar el ángulo a radianes. 


1.18) Un ciclista se pone a bajar sin frenos un puerto de montaña. Si supone- 
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mos que el aire tampoco le frena, la velocidad que alcanza es v =vV 2gh 
aproximadamente, siendo h el desnivel. Haz un programa que, según el 
desnivel, dé la velocidad alcanzada. Interesa al final pasar el resultado de 
m/seg a Km/h. Utiliza la expresión: 


V=(2*9.80665* H)1(1/2) 


2 
EL LENGUAJE BASIC 


ZUIS RIARDO GO TO--- 


2.1 B.A.S.I.C. 


La palabra BASIC viene de la expresión inglesa “Beginner's All-purpose 
Symbolic Instruction Code”: código de instrucción simbólico de uso múltiple 
para principiantes. 


El BASIC es un lenguaje que permite al hombre comunicarse con el orde- 
nador. Fue desarrollado en la década de los sesenta por los profesores John G. 
Kemeny y Thomas E. Kurtz de los EE.UU. Utiliza palabras inglesas y expresio- 
nes matemáticas. 
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El BASIC, como todo lenguaje, utiliza un alfabeto formado por los si- 
guientes caracteres: 


Letras: A, B, C, ..., Z ( ¡siempre mayúsculas!) 
Cifras: 0, 1, 2,...,9 
Caracteres especiales: 


Operadores aritméticos: +, —, *, /, ? (adición, sustracción, multipli- 
cación, división y exponenciación). 


Otros caracteres: (,), =,<, >, $, etc. 


Todos los caracteres se introducen en el ordenador desde un teclado seme- 
jante al de una máquina de escribir. 


2.2 LASFORMULAS 


Entre las expresiones más importantes que podemos escribir con los carac- 
teres BASIC, están las fórmulas. 


Una fórmula es una expresión formada por constantes y variables, ligadas 
por los operadores aritméticos, siguiendo unas reglas parecidas a las del cálculo 
usual. 


Las fórmulas se computan con los valores actuales de las variables; por 
tanto una fórmula representa siempre un número concreto. 


En la expresión C=2+Ax*B, el segundo miembro, 2+ AxB, es una fór- 
mula. Si A vale 5 y B vale 6, el valor de C, como resultado de operar la fórmula, 
es 32. 


He aquí algunas fórmulas matemáticas y su correspondiente traducción 
al BASIC: 
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FORMULA MATEMATICA FORMULA BASIC 


ab+c A*B+C 

(a+b)c (A+ B)*C 

ar +a, +az A1+A2+A3 

3a — be 3x*A — BxC 

a+b (A+B)/C 

Cc 

a+ A+B/C 

a At?2 

a? At3 

a? + b? A12+B*?2 

ta A%tQ.S 
IA _ 


Observa que el lenguaje BASIC no permite subíndices ni superíndices. 
Todos los caracteres de una expresión tienen que ir en la misma línea. 


Al transcribir al lenguaje BASIC las anteriores fórmulas hemos utilizado 
algunas reglas que vamos a poner de manifiesto en el apartado siguiente. 


2.3 JERARQUIA DE LOS OPERADORES ARITMÉTICOS 


El orden de ejecución de los operadores aritméticos en una fórmula 
BASIC es el siguiente: 


Primero se ejecutan todas las exponenciaciones; después se ejecutan todas 
las multiplicaciones y divisiones; por último se ejecutan todas las adiciones y 
sustracciones. 


Podemos clasificar los operadores, según la prioridad de ejecución, en tres 
niveles: 
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Primer nivel: 1 
Segundo nivel: x, / 


Tercer nivel: +, — 


No hay orden de prelación dentro de un mismo nivel. Las operaciones de 


un mismo nivel se ejecutan en las fórmulas de izquierda a derecha. 


[1] 
[2] 


[3] 
[4] 


[s] 
[6] 


Veamos algunos ejemplos: 


Ejemplo 1: 


Consideremos la fórmula: 


5r6+2*312-51f2 (2) 


Numeremos las operaciones según el orden de ejecución: 


[3] [s] Us101 051 da] 
5*r6+2*312-5%2 


5x6+2*9-51f2 Se ejecutan primero las exponenciaciones empezando 
5xk6+2x9-—25 por la de la izquierda. 


3(+2* 9-25 Después los productos y cocientes, empezando también 
3M+ 18-25 por el más a la izquierda. 

48-25 Por último las sumas y restas, también de izquierda a 
23 derecha. 

Ejemplo 2: 


Sea ahora la fórmula: 
12/3*2 (3) 


Como los operadores / y x* son del mismo nivel, se ejecutan de izquierda a 


derecha; esto es: primero la división y luego la multiplicación; resultando suce- 


sivamente: 
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12/3x2 (3) 
4x2 
8 


2.4 USO DE PARENTESIS 


Si en la fórmula (3) queremos que 2 esté en el denominador, dividendo, 
deberíamos ponerlo entre paréntesis: 


12/3*2) (4) 


El ordenador antes que nada, antes que las exponenciaciones incluso, rea- 
liza las operaciones de los paréntesis: 


tel 11] 
12/(3*2) 


l1] 12/6 
[21 2 (resultado distinto que el de la fórmula (3) ). 


Luego para romper el orden de ejecución según los niveles señalados en el 
apartado anterior, hay que utilizar paréntesis. Como en matemáticas, se pueden 
poner unos paréntesis dentro de otros. 


Para computar una fórmula con varios niveles de paréntesis, se empieza 
ejecutando las operaciones de los paréntesis más interiores, sucesivamente, 
hasta llegar a computar todos los niveles de paréntesis. Dentro de cada parénte- 
sis las operaciones se ejecutan siguiendo las reglas del apartado 2.3. 


Ejemplo 3: 
[1] SU 5 [4] Lol 
(Q+1)13-(3+2)*4)12 (5) 


El resultado de computar esta fórmula es 49, 


Recuerda que siempre que se abre un paréntesis hay que cerrarlo más ade- 
lante: han de cerrarse el mismo número de paréntesis que se abren. 


Algunas máquinas tienen en su teclado corchetes, que pueden utilizarse en 
la presentación de resultados, etc., pero que no pueden utilizarse en las fórmu- 
las, no tienen el sentido matemático que tienen los paréntesis. 


Un número negativo sólo se puede elevar a una potencia entera. Más explí- 
citamente: la potencia AfB se computa siempre que Á sea positivo, o bien 
cuando A es negativo y B entero. Por ejemplo, la fórmula (—1.25)13 es correcta: 
pero la fórmula (—-8)1(1/3), que equivale a Y—8, aunque matemáticamente es 
igual a —2, no puede ser calculada por el ordenador. 
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2.5 ESCRITURA DE NUMEROS O CONSTANTES 


En BASIC se pueden escribir números hasta con nueve cifras (*), un punto 
decimal y un signo (+ Ó —). Si no figura el signo, se supone que es el signo +. 
Así por ejemplo, se puede escribir: 


+123456789 
123.956789 
333333333 


Siguiendo la notación anglosajona, si delante del punto decimal va el cero, 
éste se puede suprimir. Podemos escribir .25 en lugar de (.25. 


Existe otra notación, la exponencial, que permite escribir números muy 


grandes o muy pequeños. El número: 


SOPOPOVOPOPV) =3- 10% 
se escribe en BASIC así: 3E12 
El número (.000000004 = 4. 10”? 
se escribe 4E—9 
Observa que la letra E sustituye a la expresión “x 10 elevado a”. 


Delante de la E tiene que haber siempre un número, aunque sea sólo el 1. 
Así 1015 se escribe 1E15, y no E1S, que daría error. 


El número que sigue a la letra E en la notación exponencial ha de ser 
entero, (sin punto decimal), y con signo, aunque el signo + se puede suprimir. 
La notación exponencial equivale a mover el punto decimal a derecha o izquier- 
da, el número de veces que señale E. 


Es posible escribir una constante BASIC de varias formas. A continuación 
damos varios ejemplos: 


3 +3 3. 

325.4 3.254E+2 3.254E2 
0.0126 1.26E-2 12.6E-3 
A ES -(.4E1 


(*) Este número puede variar en algunos casos 
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El valor absoluto de una constante BASIC varía desde 10738 hasta 10*8, 
aunque este recorrido puede cambiar de unos ordenadores a otros. Por supues- 
to que aunque el O no está incluido en el recorrido anterior, también es una 
constante BASIC. 


Al tratar de las variables no hablamos de las variables enteras, y lo hace- 
mos ahora. Si una variable no va a tomar más que valores enteros, conviene es- 
pecificarlo porque utiliza la tercera parte de memoria que las variables reales. 
Se designa con el carácter % a continuación del nombre de la variable. Por 
ejemplo A%, RADZ, BA7%, etc. Pero tienen una restricción adicional y es que 
sus valores han de estar comprendidos entre —-32768 y +32767, recorrido mu- 
cho más pequeño que el de las variables reales. 


RECUERDA 
Caracteres | Ejecución de operadores del mismo 
Operadores aritméticos: +, —, «, | Nivel 
1? Uso de paréntesis 
Teclado Niveles de paréntesis 
Fórmula Potencias de base negativa 
Constante Escritura de constantes 
Computación de fórmulas Supresión del cero 


Jerarquía de operadores Notación exponencial 


Niveles de operadores Varias formas de escribir una cons- 


Variables enteras tante 


A No A] 
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EJERCICIOS 


2.1) ¿Cómo se expresa el número 2% en lenguaje BASIC? 


2,2) Sabiendo que las operaciones aritméticas se efectúan en un orden deter- 
minado, ¿cómo se efectuarían las siguientes Operaciones dentro del 
ordenador? 


344+5/3 7/3/2 4+5x*2 6/34 
2.3) ¿Qué operación aritmética tiene prioridad en el lenguaje BASIC, x* ó 


/? Y en general, dentro de todos los operadores aritméticos, ¿cuál se 
ejecuta en primer lugar? 


2.4) ¿Qué papel desempeñan los paréntesis en una fórmula BASIC? 


2.5) Indica el orden en que la computadora realiza los cálculos: 


10 PRINT 8+3*4-7 
29 PRINT 814+5*x9 
3 PRINT (8/3)*(4-7) 
40 PRINT (8-7)/5-9 


2.6) Transcribir al lenguaje BASIC las siguientes fórmulas: 


a) 22 +a+ab bp) Va+Vb 
3 
Cc) Vx d) (3a? + b)? 
7+6c 
a hx0-1)_yGa-2 
V be? 2 3 
2.7) Escribir una instrucción LET que contenga la expresión: 
225 
3 + $ e 
E 12 


2.8) Escribir un programa en que se utilice la fórmula: 


2x + 3 Y 
S=( 5 ) 
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2.9) Transcribe al lenguaje matemático las siguientes fórmulas BASIC: 


a) A/B+C/D e) A+B/CxD—A*B13 
b) A/N(B+C)/D £) (A13Z+AP2+AJAS 
Cc) (S*T)4.5S 2) ABC 

d) AMNQ*B) h) AFA—AxA/APA 


2.10) Escribir una sentencia LET correspondiente a cada una de las siguientes 
igualdades: 


l . oa 
a)s= 3 gt? (espacio en caída libre de un cuerpo) 


b)V==x1?h (volumen del cono) 


uw|-— 


c) V= ; rr? (volumen de la esfera) 
d)S=4rr? (superficie de la esfera) 


1 aRiAS 
e) E= 5 mv? (energía cinética de un cuerpo) 


2.11) Escribir un programa para computar la siguiente fórmula utilizando dos 
variables intermedias o auxiliares: 


3q r 3/2 
=> $ q 
dl ir +3) 
2.12) Escribir un programa para computar 


1,48 x 4,2 + (9-19,47)x 5 RO romo 
) 525 + 10,76 + 6,25)x12,43 e) (9 ds 25) 


2.13) Escribir un programa que calcule el valor del polinomio: 


x9+3x? -x?+x+1 a) Para x = 7,023 
b) Para x = —7,023 
c) Para cualquier x 


2.14) ¿Qué dificultad se puede presentar al ejecutar un programa con la si- 
guiente proposición LET? 


15 LET X=(Z-2*Y)%.5 


2.15) ¿Qué error estamos cometiendo en la siguiente instrucción LET? 


5 LET A= [6+X)/5+Y]142 


2.16) Escribe en lenguaje BASIC los siguientes números: 


a) mil millones e) 0,19 

b) 0,000000000027 f) -2,49 x 103 
e) 3,1735 x 108 2) 12,49 x 107 
d) -3,1234567890 h) 17 x 10% 


2.17) Todos los números que siguen están mal escritos en BASIC. Identifica los 


errores: 
a) (.76-E2 e) 123456789 
b) 1.000.000 f) 0,27 

c) 17E+53 g) 3.2.5 

d) E-3 h) 2E.5 


2.18) ¿Qué indica en notación ordinaria la expresión que en BASIC se escribe 
3.6MPE+9? 


2.19) Deduce una fórmula para convertir grados centígrados en Fahrenheit 
y escribe el programa correspondiente. 


2.20) Calcular la cantidad de tela necesaria para hacer una tienda de campaña 
de forma cónica si la altura es de 5 m y el radio de la base 3 m .Hacer la 


programación para H y R variables. 


2.21) Un depósito de butano tiene forma esférica y su altura es de 20 m. Calcu- 
lar su capacidad en litros. 


2.22) Escribir un programa en BASIC para hallar la hipotenusa de un triángulo 
rectángulo. 
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3 
CLARIDAD DE EXPRESION 


3.1 COMENTARIOS Y OBSERVACIONES 


En este capítulo vamos a ver algunas cuestiones que contribuyen a mejorar 
la claridad de los programas y la presentación de los resultados. 


Con mucha frecuencia se manejan programas elaborados por otras perso- 
nas. Si no te explican su funcionamiento, antes de utilizar un programa tendrás 
que estudiar su listado, y esto puede ser laborioso. Incluso tus propios progra- 
mas, si ya ha pasado tiempo, te puede costar reconocerlos. Por esto es conve- 
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niente poner en el listado una observación que te recuerde la finalidad del pro- 
grama, una especie de título. 


Además, si el programa es largo y complicado, es interesante meter entre 
líneas algún comentario que lo explique. Por ejemplo: para corregir o mejorar 
un programa es necesario entenderlo, saber cómo funciona; y con observaciones 
al margen se facilita mucho este trabajo. 


Pensando en esto se ha habilitado la instrucción REM, abreviatura de la 
palabra inglesa REMARK (nota, comentario, observación). Cuando en una ins- 
trucción, tras el número de línea, el ordenador se encuentra la palabra clave 
REM, la máquina ignora esa línea. 


Veamos un ejemplo: supongamos que queremos disponer de un programa 
que nos dé el volumen de un cilindro en función del radio de la base y de la al- 
tura. Recuerda que la fórmula matemática es V=7 1? h. Este puede ser un pro- 
grama: 


1 REM VOLUMEN DE UN CILINDRO 
20 INPUT R 

30 INPUT H 

4 LET V=3.1416*R?2*H 

SfQ PRINT V 

6 END 


La línea 1 es un comentario, cuya única misión es identificar el programa. 


Nosotros usaremos siempre la sentencia REM para poner el título. Por tan- 
to, todos los programas que escribas en adelante han de comenzar por una línea 
REM (para el título) y terminar con una instrucción END (para indicar el final). 
Puedes también escribir sentencias REM en medio de un programa para ex- 
plicarlo. 


3.2 PRESENTACION DE LOS RESULTADOS 


Si ejecutas el programa anterior, dando al radio el valor 1f y a la altura el 
valor 3, en la pantalla sale: 


210 
pe 
942.48 
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Como conoces el programa, sabes que el número 942,48 corresponde al 
volumen. Pero estaría mejor que en la pantalla apareciera una identificación del 
resultado, sobre todo cuando un programa da varios resultados, como en el 
ejemplo siguiente: 


1 REM VOLUMEN Y AREA TOTAL CILINDRO 
20 INPUT R 

3f INPUT H 

4 LET PI=3.1416 

SY LET V=PI*xR12*H 

60 LET AT=2xPIx*R*H+2x*Pl*R?2 

70 PRINT Y 

8N PRINT AT 

9 END 


Este programa da el volumen y el área total de un cilindro. Al correr el 
programa, en la pantalla aparece: 


210 

po 
942.48 
816.816 


Y quizá no sepas a qué variable corresponde cada número. Si no te acuer- 
das del programa tendrás que listarlo y ver el orden de aparición de las instruc- 
ciones PRINT, con la consiguiente molestia y pérdida de tiempo. 


Para clarificar los resultados puedes etiquetarlos utilizando la instrucción: 
PRINT * » 


que hace aparecer en la pantalla cualquier símbolo, o cadena de caracteres, que 
sitúes entre las comillas. Así, sustituyendo en el programa anterior las líneas 


70 y 8) por: 


79 PRINT “VOLUMEN=”;V 
8) PRINT “AREA TOTAL=”;AT 


obtienes un programa que, para R = 1) y H= 3, imprime como resultado: 


VOLUMEN= 942.48 (1 
AREA TOTAL= 816.816 
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Recuerda: cuando una instrucción PRINT tiene detrás algo entre comillas, 
el ordenador lo reproduce íntegro; se podría decir que el ordenador “dibuja” el 
entrecomillado. 


Observa que en las dos líneas PRINT del último programa aparece un 
punto y coma (;). El papel que juega este signo lo veremos más adelante. 


Normalmente el ordenador imprime un resultado en la línea inmediata- 
mente siguiente a la de la impresión anterior. Por eso los resultados (1) apare- 
cen en líneas contiguas, demasiado juntos. Para que los resultados salgan sepa- 
rados puedes intercalar en el programa una línea PRINT sin nada detrás: 


75 PRINT 


Ya sabes que para intercalar una línea no hay que reescribir todo el pro- 
grama, sino únicamente la línea que se desea intercalar, ¡y pulsar [RETURN]! 
Si ahora listas el programa, la última parte quedará así: 


70 PRINT “VOLUMEN =”;V 

75 PRINT 

8f) PRINT “AREA TOTAL =”;AT 
9 END 


Al llegar a la línea 7f) el ordenador imprime: VOLUMEN = 942.48, y salta 
la línea siguiente para imprimir lo indicado en 75, pero como aquí no hay nada, 
“imprime” una línea en blanco, y pasa a la línea 8f). Si R=1(, como hasta aho- 
ra, y H=3, en la pantalla aparece: 


VOLUMEN = 942.48 


línea en blanco 
AREA TOTAL = 816.816 


3.3 UTILIZACION DE LA COMA (,) Y DEL PUNTO Y COMA (;) EN PRINT 
Y a conoces varias posibilidades de la instrucción PRINT: 


a) PRINT X imprime el valor de la variable X 
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b) PRINT 7*372 imprime 63 
c) PRINT “BUEN PROGRAMADOR” imprime BUEN PROGRAMADOR 


d) PRINT “imprime” una línea en blanco 


Veremos ahora cómo pueden combinarse estas cuatro posibilidades, y có- 
mo pueden ordenarse los resultados en la pantalla de forma clara mediante la 
coma (,) y el punto y coma (;). 


La pantalla del ordenador tiene una especie de cuadrícula invisible, en la 
que se van colocando los caracteres que indican las instrucciones PRINT. La 
distribución de la cuadrícula depende de cada marca y modelo; vamos a supo- 
ner que el nuestro tiene 25 líneas y 40 espacios en cada línea. Además la panta- 
lla está dividida en zonas verticales, que también dependen del aparato. Supon- 
dremos que nuestros 40 espacios están divididos en 4 zonas, que tendrán por 
tanto 10 espacios por zona. Lo entenderás mejor viendo la figura 3.1. 


1? zona 2* zona 3* zona 4* zona 

FI II] 

ST TT] 

TIT] 

[TP] | 

ES 

Ba 

CERA lol 
MEA | [|] [| [1 
Ely ES 7 
Y] | [| 
A [|] uN 
PTY] aL [|] 
En ES 
|] E 
III] TÍ] [ [| 
Lp] 4 a 
LT] |] 
ETT] [| —- 
11153 [| [| 
RENO [| [PA 
de dl 7 
MENA [| 
NENA [|| 
OL] OL] 

40 espacios 
Fig. 3.1 


El uso de las zonas se regula mediante la coma (,). Veámoslo con un ejem- 
plo sencillo. Observa la salida del siguiente programa: 


57 


10 PRINT 1,2,-3,4,5,-6 
20 END 


Fig. 3.2 


Puedes ver que cada valor se ha escrito en una zona distinta. Podrías ima- 
ginar que la coma “dice”: la próxima impresión se efectuará en la zona siguien- 
te a la zona ya utilizada. (Y si se han agotado las cuatro zonas de una línea, la 
coma ordena imprimir en la primera zona de la línea siguiente). 


En la figura 3.2 se ve cómo es tratado el signo: va en el primer lugar de la 
zona; cuando es positivo no aparece y deja entonces un espacio en blanco. 


La coma (,) cumple la misma función si se sitúa al final de una instrucción 
PRINT, ordenando entonces que la próxima instrucción PRINT que se ejecute, 
no imprima en la línea siguiente, sino en la zona siguiente. Lo verás mejor con 
otro programa: 


10 PRINT 1,2,-3, (hay coma al final) 


2 PRINT 4,5 (no hay coma al final) 
30 PRINT -6 
40 END 


que produce la siguiente salida: 


E a panela e 


4 


En 


+ q 
5 
| 
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Imagínate que en el programa (1), sobre el volumen y área total del cilin- 
dro, modificamos las instrucciones de impresión por las siguientes: 


79 PRINT “VOLUMEN =”,V 
75 PRINT 
8f PRINT “AREA TOTAL =”,AT 


Con los valores que hemos utilizado antes para R y H la salida queda así: 


(Molt [u] m p9[s| a 
EA AAA 


lafr[ela] [rfofrlalil i=[ |] | |] LL] 
E 

Aerea [| SERRA ERE 
AA [1 MER ER AMA SA AA 
100 0 0 ULA ANDAN EEN 


Fig. 3.4 


Donde el último número ha pasado a la tercera zona, pues el entrecomilla- 
do ha invadido la segunda. 


Veamos ahora la utilización del punto y coma (;), que viene a “decir”: la 
siguiente impresión se hace inmediatamente a continuación. Esto cuando se tra- 
ta de cadenas o entrecomillados, pues cuando se trata de números el punto y 
coma (;) deja un espacio en blanco para mayor claridad, además del correspon- 
diente al signo. Mediante un programa sencillo lo entenderás mejor: 


19 PRINT 1;2;-3;4;5;-6;7;8;-—9 
20 END 


que produce la siguiente presentación en pantalla: 


59 


Como en el caso de la coma, el punto y coma del final de una línea actúa 
sobre la siguiente instrucción PRINT, haciendo que no imprima en la línea si- 
guiente sino a continuación, como lo muestra el siguiente programa: 


19 PRINT 1;2;-3; (hay (;) al final) 


20 PRINT 4;5 (no hay (;) al final) 
30 PRINT -6;7; (hay (;) al final) 
4 PRINT 8 (no hay (;) al final) 
Sp PRINT -9 

60 END 


Cuya salida es: 


Fig. 3.6 


Como último ejemplo, si en el programa (1) del apartado anterior cambia- 
mos las líneas 7) y 8f por la línea: 


70 PRINT “VOLUMEN =”;V, “AREA TOTAL =”;T 


tendremos en la pantalla una salida más elegante: 


Fig. 3.7 


60 


Fíjate en las posibilidades que ofrece la combinación de comas y puntos y 
comas. Aunque en este caso deberíamos haber acortado un espacio, para que 
no apareciera ese “6” en la segunda línea. Podríamos poner “AREA TOTAL =” 
suprimiendo ese espacio en blanco para que quepa 816.816 en la línea. 


3.4 CLARIDAD EN LOS DATOS 


Hemos visto que cuando el ordenador necesita datos, nos los pide mos- 
trando en la pantalla un signo de interrogación, provocado por la ejecución de 
una instrucción INPUT. Pero sería conveniente que nos los pidiera llamándolos 
por su nombre. Esto se puede lograr etiquetando los datos, como vamos a ver: 


1Q REM VOLUMEN Y AREA TOTAL CILINDRO 


15 PRINT “RADIO=”; (atención al ;) 
20 INPUT R 

25 PRINT “ALTURA="”; (atención al ;) 
3 INPUT H 

etc. 


Al ejecutar este programa aparece en la pantalla la leyenda: 


RADIO =? 


que es consecuencia de la ejecución de las líneas 15 y 20), ya que la línea 15 
hace imprimir RADIO =, pero como hay punto y coma, la siguiente impresión 
se hace a continuación. 


Cuando demos el valor del radio aparecerá la leyenda siguiente: 


ALTURA =? 


Hay una manera más sintética de producir los mensajes anteriores: se trata 
de fundir las líneas 15 y 2f) en una sola, lo mismo que las líneas 25 y 30: 


10 REM VOLUMEN Y AREA TOTAL CILINDRO 
2 INPUT “RADIO=”;R 

30 INPUT “ALTURA=”;H 

etc. 
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Como ves, la instrucción INPUT admite un mensaje inicial de identifica- 
ción de las variables, separado por un punto y coma. 


Además te puede interesar meter unas cuantas variables seguidas, y el 


INPUT también recoge esta posibilidad, como se ve en el siguiente programa: 


1) REM MEDIA DE 3 NUMEROS 
29 INPUT N1,N2, N3 

30 LET M=(N1+N2+N3)/3 

4 PRINT “LA MEDIA ES”; M 
SQ END 


Como en los ejemplos anteriores la línea 2f puede ser mejorada con un 
mensaje previo: 


20 INPUT “DECIR LOS 3 NUMEROS” ;N1, N2, N3 
Al correr este programa y llegar a la línea 20) aparece en pantalla: 
DECIR LOS 3 NUMEROS? 


y el ordenador espera que le des los tres valores que quieras. Habrás visto en el 
programa que las variables van separadas entre sí por comas. Pues bien, en la 
ejecución, los datos que introduzcas tras la interrogación también se separan 
por comas. Por ejemplo: 


DECIR LOS 3 NUMEROS? 6.5,4.2,5.5 (|RETURN]) 
LA MEDIA ES 5.4 


Observa el papel de la coma y del punto y coma en la instrucción INPUT. 


3.5 CADENAS DE CARACTERES Y VARIABLES DE CADENA 


El lenguaje BASIC no sólo maneja números, sino también cadenas de ca- 
racteres, que son sucesiones de signos gráficos cualesquiera, que se encierran 
entre comillas para saber dónde empieza y dónde acaba la cadena. 
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Ejemplos de cadenas son: 


“HOLA”, “AGENTE 007”, “JOSE PEREZ GARCIA”, “12345”, “A=”, 
“A + B”, os ee 


Esto no debe parecerte nuevo pues lo hemos utilizado alguna vez. En el 
programa (1) de la pregunta 3.2 etiquetamos los resultados con entrecomilla- 


dos: “VOLUMEN="” y “AREA TOTAL="”; y en la pregunta 3.4 hicimos lo mis- 
mo para la instrucción INPUT con los mensajes “RADIO =” y “ALTURA =”. 


Los espacios se consideran en BASIC como caracteres. Así la cadena: 
“JOSEPEREZGARCIA” 
es diferente de la cadena: 


“JOSE PEREZ GARCIA” 


Es claro que las cadenas carecen de significado numérico y que no hay que 
confundirlas con los nombres de las variables numéricas. Una “operación” que 
admiten las cadenas es la adición, entendida como yuxtaposición. 


“MONTE” + “VIDEO” = “MONTEVIDEO” 
“HOLA” +“ ”4AGENTE (Q07”=“HOLA AGENTE 07” 


La cadena “12345” no tiene significado numérico, y no hay que confun- 
dirla con la constante numérica 12345. 


Las cadenas de caracteres son una de las posibilidades más interesantes del 
lenguaje BASIC, pues permiten etiquetar los datos y los resultados, como ya he- 
mos visto, y tratar textos en castellano. La longitud máxima de una cadena es 
255 caracteres. 


Lo mismo que los números se “guardan” en variables, las cadenas se guar- 
dan en variables de cadena (o variables alfanuméricas), cuyos nombres siguen 
las mismas reglas de formación que aquéllos, pero siempre acaban con el signo 
S (dólar). Así, por ejemplo: 


AS, ABS, NOMBRES, A7$ 


son variables de cadena. 


Las asignaciones, las impresiones, las tomas de datos, etc., se hacen de la 
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misma manera que para las variables numéricas. Veámoslo con un pequeño 
ejemplo, que no tiene otro objeto que adiestrarnos en el manejo de las cadenas: 


10 REM NOMBRES Y APELLIDOS 
20 LET A$=“ALUMNO:” (asignación) 


3(f INPUT NS$ (pide el nombre) 

4 INPUT A1S (pide el primer apellido) 
SQ INPUT A2$ (pide el segundo apellido) 
60 PRINT AS (imprime ALUMNO:) 

70 PRINT (deja línea en blanco) 


80 PRINT N$S,AI1S,A2$ (imprime el nombre y los dos apellidos) 
9f) END 


Si al ejecutar el programa escribimos: 


? PEDRO 
? FERNANDEZ 
? RAMIREZ 


tendremos como respuesta las líneas: 
ALUMNO: 
PEDRO FERNANDEZ RAMIREZ 


Al igual que veíamos con los datos numéricos, también existe la posibili- 
dad de etiquetar los datos alfanuméricos y saber en todo momento cuál es el 
dato que nos pide el ordenador: 


1Y REM NOMBRES Y APELLIDOS 

29 LET AS$=“ALUMNO:” 

3 INPUT “NOMBRE”;N$ 

40 INPUT “PRIMER APELLIDO”;A1$ 
5 INPUT “SEGUNDO APELLIDO”; A2$ 
6 PRINT AS 

79 PRINT 

80 PRINT NS,A1$,A2$ 

9 END 


Corriendo el programa podemos tener: 
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NOMBRE”? PEDRO 

PRIMER APELLIDO? FERNANDEZ 
SEGUNDO APELLIDO? RAMIREZ 
ALUMNO: 


PEDRO FERNANDEZ RAMIREZ 


Con una sola línea INPUT también existe la posibilidad de tomar varios 
datos alfanuméricos. Por ejemplo, la línea: 


3 INPUT N$,A1$,A2$ 
sirve para tomar el nombre y los dos apellidos: 
? PEDRO, FERNANDEZ,RAMIR EZ 


Todavía más: con una sola línea INPUT se pueden tomar datos numéricos 
y alfanuméricos. Así, la línea 4f sirve para tomar el nombre de un alumno y la 
nota de un examen: 


4 INPUT N$,X 
Cuando salga la interrogación correspondiente escribiremos: 
? JOSE RAMIREZ PEREZ, 7 


La variable N$ tomará el nombre completo del alumno y la variable numé- 
rica X tomará el número 7. 


Como advertencia final diremos que no se puede etiquetar por separado 
cada uno de los datos de una misma línea INPUT, tanto si los datos son todos 
numéricos, como si son alfanuméricos o mezclados. Por ejemplo, es incorrecta 
la expresión: 


4 INPUT “NOMBRE”;N$, “NOTA” :;X 
Son correctas las siguientes líneas: 


4 INPUT “NOMBRE”;N$ 
45 INPUT “NOTA”:X 
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y también es correcta la línea: 


4 INPUT “NOMBRE Y NOTA” :;N $,X 


RECUERDA 


REM Cadenas de caracteres 
Zonas de la pantalla Variables de cadena (A$) 
PRINT (sin nada detrás) 

PRINT A A$ 

PRINT A, AS, 

PRINT A; AS; 

PRINT A,B,C A$, BS, C$ 
PRINT  A;¡B;C AS$:B$:C$ 
PRINT “RADIO=”; “NOMBRE”; 
INPUT R N$ 

INPUT “RADIO=”:¿R “NOMBRE”:;N$ 


NS$,X INPUT “NOMBRE Y NOTA”:N$,X 
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3.1) 


3.2) 


3.3) 


3.4) 


3.5) 


3.6) 


3.7) 


EJERCICIOS 


Todos los programas que diseñes desde ahora deberán comenzar por una 
sentencia REM y acabar por una END. Explica el papel que cumplen am- 
bas. 


¿Cómo podemos insertar el comentario 
CALCULO DEL AREA DE UN ROMBO 


en un programa? 


La proposición REM ¿es ejecutable por el ordenador? 


Titula el siguiente programa mediante una línea REM: 


20 INPUT R 

30 A=3.1416*R?2 
4) PRINT A 

Sf END 


Modifica la línea 4f) del programa anterior para que en la impresión del 
resultado aparezca la leyenda AREA =. 


El siguiente programa calcula la hipotenusa de un triángulo rectángulo 
dando los valores de los catetos. Pon título al programa y etiquetas a la 
entrada de datos y a la presentación de resultados: 


2 INPUT C1,C2 

3f H=(C112+C212)*.5 
40 PRINT H 

SQ END 


Escribe una sentencia REM para el programa siguiente: 


29 INPUT “RADIO=”;R 

30 L=2*3.1416*R 

40 PRINT “LONGITUD=”:;L 
SY END 
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3.8) Escribe un programa que se adapte a esta proposición: 
1 REM AREA DE UN TRIANGULO 
3.9) ¿Cómo podemos imprimir los valores de A, B y C en un sólo renglón y lo 
más cerca posible? ¿Cómo lograremos que los valores de la instrucción si- 
guiente se impriman en la misma línea? Pon un ejemplo. 


3.10) ¿Qué se puede hacer para que dos líneas de impresión no salgan juntas? 


3.11) ¿Qué efecto produce un punto y coma al final de una línca PRINT? ¿Y 
una coma? 


3.12) Decir qué imprime el programa: 


1) REM DIFERENCIAS DE IMPRESION 


20 LET A=5 

30 PRINT A 

4 PRINT “A” 
SY END 


3.13) ¿Qué imprime el siguiente programa? 


4 PRINT 3+2 
8) PRINT “3+2” 
129 END 


3.14) Explica qué imprimen estas líneas: 


7H PRINT 3,2 
8) PRINT 
9 PRINT 3;2 


3.15) ¿Qué resultado nos proporciona este programa? 


1) REM EJERCICIO 
20 PRINT A,B,C,D 
30 END 
3.16) Muestra cómo quedará la pantalla después de correr este programa: 
1) REM EJERCICIO DE IMPRESION 
2 PRINT 3,4 
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3.17) 


3.18) 


3.19) 


3.20) 


30 PRINT 5;6 
4f PRINT 

SQ PRINT 7; 
60 PRINT 8 

79 END 


¿Qué sale en la pantalla cuando el ordenador ejecuta este programa? 


1Y REM TABLA DE VALORES 
29 PRINT “Xx”, “F(X)” 

3 LET X=X+1 

4 PRINT X,X*X 

SQ X=X+1 

60 PRINT X,X*X 

79 END 


¿Qué imprime este programa? 


10 REM SUMA 
29 PRINT “24+3=”;2+3 
30 END 


Programa el ejercicio anterior para dos sumandos cualesquiera X e Y me- 
diante las instrucciones INPUT correspondientes. Piensa bien la “suma” 
de cadenas que será necesaria para escribir el principio de la línea 20. 


Escribe un programa que imprima en la pantalla: 


a) 1 2 3 4 
5 6 tU 8 


b12345678 


Simula una pantalla en papel cuadriculado y representa los resultados del 
siguiente programa: 


10 PRINT “L1”;¡“MADRID” 
29 PRINT “LI” 

3 PRINT “MADRID” 

4 PRINT “L1” “MADRID” 
SQ END 
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3.22) ¿Qué papel juega la línea 45? 


409 PRINT A 
45 PRINT 
50 PRINT B 


3.23) ¿Qué imprime la siguiente línea? 
re p 


120 PRINT “ >; 


3.24) ¿Cómo podemos hacer aparecer en pantalla estas expresiones? 


A= ? 
B=? 


3.25) ¿Qué resultado proporciona este programa? 


19 REM EJERCICIO 
20 LET AS="“123” 
3Y LET BS=“456” 

40 PRINT AS+B$ 

5 END 


3.26) ¿Qué hace el programa siguiente? 


19 REM COLLAGE 
29 LET AS=“NICO” 

30 LET BS=“LAS” 

40 LET Cs=" ” 

59 PRINT AS+BS,BS+CS+AS 
60 END 


3.27) En pantalla hemos escrito: 


10 LET B=A?2 
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2f END 

15 PRINT “B=”;B 

5 REM CUADRADO DE UN NUMERO 
7 INPUT A 

6 PRINT “A=”; 


¿Qué hay que hacer para que aparezcan las líneas ordenadas? Al correr el 
programa, ¿cómo se desarrolla? 


3.28) Hacer un programa para calcular la nota media de 5 alumnos. 


3.29) Una instrucción INPUT, ¿puede asignar valores a más de una variable? 
¿Qué harías para lograrlo? 


3.30) ¿Para qué sirve la línea siguiente? 


30 INPUT X,Y,Z 


3.31) ¿Qué misiones pueden tener la coma y el punto y coma en un programa 
en BASIC? 


3.32) Diseña un programa como el del ejercicio 8 (área de un triángulo) pero 
de forma que la base y la altura puedan tomar cualquier valor (INPUT) y 
etiquetando los datos y el resultado. 


3.33) Programa el cálculo de la longitud de una circunferencia y del área de un 
círculo, poniéndole título y etiquetando los datos y los resultados. 


3.34) En una gasolinera necesitan un depósito cilíndrico. Quieren saber el volu- 
men en función del radio y de la altura, y su precio con los siguientes da- 
tos: el espesor de la chapa de acero es 5 mm; la densidad del acero es 
7,87 kg/dm? y el acero cuesta 180 ptas./kg. Hazles un programa que 
calcule la capacidad (volumen) y el precio. 


3.35) Utilizando variables de cadena haz un programa que pregunte al que lo 
use cómo se llama, y luego le pregunte por su salud, la familia, y le hable 
del tiempo. 
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3.36) Escribir lo que queda en la pantalla después de ejecutar el programa: 


10 
29 
39 


REM ESCRITURA DE UN SOBRE 
N$=“JOSE PEREZ GARCIA” 
C$=“GRAN VIA 391” 
P$=“MADRID 47” 

PRINT “SR. ”; 

PRINT NS 

PRINT CS 

PRINT 

PRINT PS 

END 


3.37) Haz un programa semejante al anterior, pero que sirva para cualquier per- 
sona y dirección, utilizando INPUT. 


3.38) Haz un programa que tome una palabra y la decline según la primera 


declinación latina. 


3.39) Programa el “adulador cibernético” que, tras preguntar el nombre, diga 
muchas alabanzas. (Han de ser alabanzas un tanto impersonales; que sir- 
van para ambos sexos, para cualquier edad, etc.). 


3.40) Pedro Hernández vive en la Plaza del Diamante, 48 - 62. Su cuenta co- 
rriente tiene un saldo de 32.416 ptas. Haz un programa que imprima su 


nombre, dirección y el saldo; que después le pregunte cuánto dinero 
quiere ingresar (+) o sacar (—); para terminar imprimiendo el nuevo 
saldo. 


3.41) Haz un programa que asigne las siguientes cadenas a las variables de cade- 


na que se indican: 


A1$=UNOS HILAN LA FAMA A2$=0TROSCARDAN LA LANA 

B15$=PIENSA EL LADRON B25$=QUE TODOS SON DE SU 
CONDICION 

C1$=PERRO LADRADOR C2$=POCO MORDEDOR 

DI5$=0BRAS SON AMORES D2$=Y NO BUENAS RAZONES 


El$=DE CASTA LE VIENE AL  E2$=TENER EL RABO LARGO 
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GALGO 


F1$=QUIEN A BUEN ARBOL  F2$=BUENA SOMBRA LE CO- 


SE ARRIMA BIJA 
G1$=A BUEN ENTENDEDOR G2$=POCAS PALABRAS BAS- 
TAN 


Que el programa tenga dos salidas: primero una ordenada para que salgan 
los refranes correctamente escritos; después otra desordenada, por ejem- 
plo: A1$+E2$; B1$+F2$, CIS+B2$, DIS+G2$, El$+C2$, FIS+A2$, 
G1$+D2S. 
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dl 


TRANSFERENCIAS 
DE CONTROL 


4.1 LA INSTRUCCION GO TO 


Las instrucciones en el lenguaje BASIC se ejecutan normalmente según el 
orden creciente de sus números de línea. Pero a veces es necesario alterar este 
orden normal de ejecución y “saltar” a una línea posterior o anterior. Este es 
el papel de la instrucción GO TO (ir a). 
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Si en un programa en BASIC aparecen las líneas: 


8) GO TO 20 
9) LET A=7 
199 PRINT A 


Al llegar a la línea 8f se le ordena a la máquina que “salte” a la línea 2f. 
De momento las líneas 90, 10, etc., no se ejecutan. Esto se llama en términos 
técnicos una transferencia de control. 


Con esta nueva sentencia vamos a mejorar el programa (4) del primer ca- 
pítulo. Se trataba de calcular la longitud de circunferencias según el valor que 
se le diera al radio. El programa terminaba al calcular la longitud de una circun- 
ferencia. 


Si queremos calcular más longitudes, hay que volver a teclear RUN, y al 
funcionar de nuevo el programa nos pide otra vez un radio y nos da la longitud. 
Para calcular muchas longitudes de circunferencia nos conviene evitar el tener 
que teclear cada vez el comando RUN. 


PROGRAMA 1.4 ANTIGUO PROGRAMA 1.4 MEJORADO 


5 REM CALCULO DE LONGITUDES 
DE CIRCUNFERENCIAS 


10 INPUT R 10 INPUT “CUAL ES EL RADIO”:R 
24 LET L=2*3.1416*R 20 LET L=2*3.1416*R 
30 PRINT L 30 PRINT “LA LONGITUD ES”: L 
40 END 35 PRINT 

40 GO TO 10 

59 END 


La línea 35 es una línea en blanco entre dos cálculos sucesivos. Si corre- 
mos el programa mejorado aparecerá en la pantalla: 


RUN 
CUALES EL RADIO? 
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Si queremos el cálculo para el valor 5, tecleamos 5 |¡RETURN!|y sale en la 
pantalla: 


RUN 
CUALES EL RADIO? 5 
LA LONGITUD ES 31.416 


CUALES EL RADIO? 


Puedes ver que tras imprimir el resultado (que corresponde a la línea 30 
del programa) deja una línea en blanco, la correspondiente a 35 PRINT, y vuel- 
ve a la línea 10 por orden de la instrucción 40 pidiendo otro valor del radio. 
Al teclear por ejemplo 12 la pantalla queda así: 

RUN 

CUALES EL RADIO? 5 

LA LONGITUD ES 31.416 


CUALES EL RADIO? 12 
LA LONGITUD ES 75.3984 


CUAL ES EL RADIO? 


Y así sucesivamente. Comprueba en el microordenador la notable ventaja 
en rapidez del programa mejorado. En este caso la línea 50 END no se ejecuta 
nunca, pero en un programa en BASIC se debe incluir para indicar la termina- 
ción del programa. 


4.2 LA INSTRUCCION IF-THEN 


Los ordenadores no sólo son capaces de ejecutar una serie de cálculos a 
gran velocidad, sino que además tienen capacidad para tomar decisiones lógicas. 
Veamos un ejemplo: 


30 IF X>3 THEN 70 
4f PRINT X 
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Al llegar a la línea 30 el ordenador compara el valor de la variable X con 3. 
Si es X > 3, entonces la ejecución salta a la línea 7; en caso contrario el pro- 
grama sigue su curso normal en la línea siguiente, en nuestro caso la 4(. 


IF.. THEN... equivale a Sí... Entonces... Si No, Continuar. Mira el siguiente 
ejemplo: 


10 REM COMPRA DE DIVISAS 

29 INPUT “A CUANTO ESTA EL DOLAR”;D 

30 INPUT “A CUANTO ESTA EL FRANCO SUIZO”;FS 

40 INPUT “CUANTAS PESETAS QUIERES CAMBIAR” ;X 

5f PRINT “QUIERES COMPRAR DOLARES (1) O FRANCOS SUI- 
ZOS (2)” 

6 INPUT “(CONTESTA 1 O 2)”;A 

79 IFA=2 THEN 110 

80 LETN=X/D 

90 PRINT X; “PESETAS SON AL CAMBIO”:N:“DOLARES” 

100 GOTO 130 

110 LET N=X/FS 

120 PRINT X; “PESETASSON AL CAMBIO”;N;“FRANCOS SUIZOS” 

130 END 


Las primeras líneas del programa te preguntan el cambio actual de las divi- 
sas y el dinero que quieres cambiar, mediante instrucciones INPUT que ya ma- 
nejas bien. 


Después, mediante otro INPUT, se te pregunta si quieres dólares o francos 
suizos. Como el mensaje era bastante largo se ha puesto parte en un PRINT en 
la línea 5 y parte como etiqueta del INPUT de la línea 60. Fíjate que has de 
contestar 1 ó 2, que será el valor que tomará A. 


En la línea 70 viene la decisión lógica: Si A=2, es decir, si deseas francos 
suizos, el cambio ha de calcularse a partir de la línea 11f. En esa línea se divide 
tu dinero (X) por el cambio del franco suizo (FS) y resulta la cantidad de fran- 
cos suizos que te corresponde; se imprime el resultado en la línea 120, y se 
termina el programa. 


A CUANTO ESTA EL DOLAR? 90 

A CUANTO ESTA EL FRANCO SUIZO? 50 

CUANTAS PESETAS QUIERES CAMBIAR? 63000 

QUIERES COMPRAR DOLARES (1) O FRANCOS SUIZOS (2) 
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(CONTESTA 1 O 2)? 2 
63000 PESETAS SON AL CAMBIO 1260 FRANCOS SUIZOS 


Arriba ves el desarrollo del programa en el que hemos respondido a las in- 
terrogaciones (INPUT) con diversos valores, y a la última con un 2. 


Pero si deseabas dólares habrás tecleado 1, y como A entonces no vale 2, 
la condición del IF no se cumple y la ejecución continúa en la línea 80, donde 
dividiendo tu dinero (X) por el cambio del dólar (D) se obtienen los dólares 
que te darán a cambio. Después, en la línea 90, se imprime el resultado. 


Ahora bien, impreso el resultado por la línea 9() se terminó el cálculo que 
te interesaba, y ponemos un GO TO que envíe el control al final del programa. 
De lo contrario se ejecutarían a continuación las líneas correspondientes a los 
francos suizos, lo que en este momento no te interesa. 


Si deseas dólares y contestas con un 1 al INPUT correspondiente la pan- 
talla queda así: 


A CUANTO ESTA EL DOLAR? 90 

A CUANTO ESTA EL FRANCO SUIZO? 5Q 

CUANTAS PESETAS QUIERES CAMBIAR? 63000 

QUIERES COMPRAR DOLARES (1) O FRANCOS SUIZOS (2) 
(CONTESTA 10 2) 1 

63000 PESETAS SON AL CAMBIO 700 DOLARES 


Este es el estado en que queda la pantalla si en vez de 2 tecleas un 1. Si el 
programa no tuviera a continuación la línea 100 GO TO 130 aparecería deba- 
jo de lo anterior: 


63N00 PESETAS SON ALCAMBIO 1260 FRANCOS SUIZOS 


lo que estropea la claridad, pues deseábamos comprar dólares esta vez. 


La instrucción IF-THEN es una bifurcación condicional; hay transferencia 
de control (salto a otra línea) sólo si la condición del IF se cumple; a diferencia 
de la instrucción GO TO que es una bifurcación incondicional, inexorable. En 
la mayoría de los ordenadores la instrucción IF-THEN se puede escribir tam- 
bién así: IF—GO TO (Si—ir a) que te ayudará a distinguir los dos tipos de bifur- 
caciones: con o sin condición. 
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4.3 OPERADORES LOGICOS 
Modifiquemos algunas líneas del programa (1): 


5 PRINT “QUIERES COMPRAR DOLARES O FRANCOS SUIZOS” 
6 INPUT “ESCRIBIR LA MONEDA CON TODAS LAS LETRAS”: A$ 
7 IF AS=“FRANCOS SUIZOS” THEN 110 


El programa es sustancialmente idéntico. Ha variado la contestación, que 
ya no es un número sino el nombre de las divisas, y la condición de la instruc- 
ción IF-THEN, que ahora compara una variable de cadena con una cadena. 


Han salido ya tres ejemplos de condiciones de la instrucción IF-THEN: 


= “FRANCOS SUIZOS” 


Vamos a estudiar de forma sistemática las condiciones que puede encerrar 
esta instrucción. Las condiciones se caracterizan por dos términos de compara- 
ción a derecha e izquierda de un símbolo que es el operador lógico. 


SIMBOLO U OPERADOR SIGNIFICADO 
= es igual a 
É es menor que 
> es mayor que 
<= es menor o igual que 
>= es mayor o igual que 
Ll es distinto de 


Te será fácil recordar estos símbolos, muy parecidos a los que has utiliza- 
do en Matemáticas. Algunas pequeñas variantes se deben a que los ordenadores 
no tienen los signos <, > ni X* y ha de escribirse en su lugar <=,>=6<>, 
con cuidado de no alterar el orden. 


A ambos lados del operador puede haber no sólo números y variables sino 
también expresiones o fórmulas. Son válidas por ejemplo las siguientes líneas: 


40 IF (X+Y)2 <>(X-Y)/2 THEN 710 


4) IF XP-5< XQ12+5xA THEN 710 
4) IF (AZ1?2-X)/((5*A)<=AZ+A1?2 THEN 710 
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Hasta aquí la instrucción IF-THEN tal como fue ideada por los creadores 
del BASIC en los años sesenta. Pero el lenguaje BASIC ha incorporado una se- 
rie de mejoras que, sin alterar su diseño inicial, lo han potenciado notablemente. 
La instrucción IF-THEN es quizá la que más se ha enriquecido con nuevas posi- 
bilidades. Citaremos sólo dos, cuya implantación está muy generalizada, son 
casi universales. 


Veámoslo con un ejemplo: ¿qué sucede en el programa de la compra de 
divisas si se comete un pequeño error al teclear la divisa que se desea? Imagí- 
nate que has dado las siguientes respuestas al ordenador: 


A CUANTO ESTA EL DOLAR? 9 

A CUANTO ESTA EL FRANCO SUIZO? 50 

CUANTAS PESETAS QUIERES CAMBIAR? 63000 

QUIERES COMPRAR DOLARES O FRANCOS SUIZOS 

ESCRIBIR LA MONEDA CON TODAS LAS LETRAS? FRACOS SUIZOS 
(Habiendo omitido la N) 


Entonces A$=“FRACOS SUIZOS” + “FRANCOS SUIZOS”. luego la 
condición del IF no se cumple, pasa a ejecutarse la línea 8f, y con gran asom- 
bro por tu parte verás aparecer en la pantalla: 


6300 PESETAS SON AL CAMBIO 700 DOLARES 


El pequeño error al teclear ha producido una respuesta desconcertante, 
ha calculado la otra divisa. Pero hay una forma de evitar estos errores, interca- 
lando por ejemplo las siguientes líneas: 


62 IF AS$=“DOLARES” OR A$=“FRANCOS SUIZOS” THEN 70 
64 PRINT“HAS COMETIDO ALGUN ERROR AL TECLEAR” 

66 PRINT “REPITE DE NUEVO POR FAVOR” 

68 GO TO 50 


La condición del IF de la línea 62 dice que si has tecleado DOLARES ó 
FRANCOS SUIZOS, el programa continúa en la línea 7) como antes. Si has 
tecleado otra cosa, hay algún error, y te vuelve a formular la pregunta de las 
líneas 5) y 6M. Como ves el operador OR (equivalente a O) liga dos condicio- 
nes, y basta que se cumpla la primera o la segunda para que se verifique el sal- 
to o transferencia de control. 
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De forma similar se podía haber escrito: 


62 IFA$<>“DOLARES” AND A$ <> “FRANCOS SUIZOS” THEN 65 
64 GO TO 7/ 

65 PRINT “HAS COMETIDO ALGUN ERROR AL TECLEAR” 

67 PRINT “REPITE DE NUEVO POR FAVOR” 

69 GO TO 5SQ 


Se tiene el mismo efecto pero ahora utilizando AND (y). Si A$ + “DOLA- 
RES” y además A$ + “FRANCOS SUIZOS”, es decir si hay un error al teclear, 
la ejecución continúa en la línea 65 con el mismo mensaje que en el ejemplo an- 
terior. Como ves el operador AND liga dos condiciones, y sólo hay salto o 
transferencia de control si se cumplen las dos. Basta que una no se cumpla, por 
ejemplo que A$=“FRANCOS SUIZOS”, para que la ejecución continúe en la 
línea siguiente, la 64, que a su vez nos envía a la 7f) para la normal terminación 
del programa. 


La instrucción IF-THEN también se puede escribir así: IF-THEN GO TO. 
Por ejemplo: 


179 IFX?2<Y+5 THEN GOTO 320 


Pero detrás de THEN, en vez de GO TO se pueden poner también otras 
instrucciones como: 


179 IF X12<Y+5 THEN PRINT “X=”:;X 
179 IF X12<Y+5 THEN LET X=Y-3 
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4.4 ORGANIGRAMAS O DIAGRAMAS DE FLUJO 


Veamos un sencillo programa que nos da los cuadrados de los N primeros 
números naturales: 


1Y REM CUADRADOS DE LOS N PRIMEROS NUMEROS 
20 INPUT N 

30 LET I=1+1 

4 LET C=1x1 

5 PRINT “ELCUADRADO DE” ;I;*“ ES”;C 

60 IF I<N THEN 30 

70 END 


Explicaremos brevemente este programa: 
a) Con la línea 2 el ordenador nos pide el dato N 


b) En la línea 3f hemos establecido un contador. En efecto: cada vez que 
el ordenador ejecuta esta línea, la variable I va tomando sucesivamente 
los valores 1, 2, 3, ... Observa que antes de la ejecución de esta línea por 
primera vez, la variable I vale f (ya que no se le ha asignado ningún va- 
lor previamente). La primera vez que se ejecute quedará: I=N+1=1 es 
decir, I tomará el valor 1. La segunda vez: I=1+1=2, etc. 


c) En la línea 4f) se calcula el cuadrado del número y se guarda en C. 
d) Con la línea 5f se imprime el número y su cuadrado. 


e) En la línea 6f se controla el valor de l, y si todavía no se ha llegado has- 
ta el número N, se recomienza el proceso a partir de 30. Por el contra- 
rio, si l es igual a N (ya no es menor) se pasa a la línea siguiente donde 
termina la ejecución del programa. 


Todo este proceso se acostumbra a expresar gráficamente utilizando unos 
símbolos convenidos que explicaremos más adelante: 
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PRINCIPIO 


LEER EL DATO 
N 


CONTAR 
|=1+1 


ELEVAR AL CUADRADO 
C=1xl 


IMPRIMIR 
1,€ 


Fig. 4.1 


Este esquema se conoce con el nombre de organigrama o diagrama de flujo. 
En él se recoge, a grandes rasgos, la sucesión de operaciones que hay que llevar 
a cabo para conseguir un determinado objetivo. 


Hasta ahora hemos trabajado con programas sencillos que no necesitaban 
diseñar previamente el organigrama. A medida que en los programas proliferan 
las instrucciones GO TO, IF-THEN y otras que veremos, son más útiles los or- 
ganigramas, especialmente durante la etapa de aprendizaje. 


El diagrama permite seguir de una manera clara los pasos que dará el orde- 
nador al ejecutar el programa. Es conveniente hacerlo y, antes de programar. 
recorrer mentalmente el organigrama como si el ordenador fueras tú, para com- 
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probar que no hay errores. Tienes que esforzarte para que los programas fun- 
cionen a la primera, y el organigrama es una ayuda muy interesante. 


Los símbolos convenidos que nosotros vamos a utilizar para la represen- 
tación de los organigramas son los siguientes: 
— El principio y fin se representa por 
elipses o figuras similares. 


— La entrada de datos se representa 
por 


— La asignación de valores a variables 
o la realización de cálculos se en- [ —] 
marcan en rectángulos. 


— La impresión de resultados, expre- 
siones, etc., por 


— Las decisiones lógicas se represen- 
tan por un rombo. 


4.5 DOS EJEMPLOS INTERESANTES 

Para iniciarnos en el diseño de organigramas, y su posterior traducción a 
un programa en BASIC, vamos a ver dos ejemplos: 

Ejemplo 1: 


Hallar las raíces reales de la ecuación de segundo grado AX? + BX + C=0, 
donde A, B y C son números reales cualesquiera y AFO. Sabido es que la fór- 
mula que nos da las raíces de la ecuación es: 


que en realidad se desdobla en estas dos: 


_ —B+V B? -4AC —B —V B? -4AC 


2A 2A 


Xl 


Para que se puedan hallar estas raíces reales es necesario que el discrimi- 


85 


PRINCIPIO 


ENTRADA 
A,B,C 


CALCULO DEL 
DISCRIMINANTE 
D =B2 4AC 


CALCULAR 


IMPRIMIR 
XI, X2 


IMPRIMIR 
ESTA ECUACIÓN 
NO TIENE 
RAICES REALES 
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PROGRAMA 


10 REM ECUACION DE SEGUN- 
DO GRADO 


20 INPUT “DA VALORES PARA 
AB Y Pia BOC 


30 LET D=B1?2-4x*Ax*C 


40 IF D<Q THEN 110 


SÓ LET X1=(-B+D?.5)/(2xA) 


60 LET X2=(-B-D?.5)/(2*A) 


70 PRINT “LAS RAICES SON:” 
80 PRINT 
90 PRINT “X1=”;X1,“X2=”;X2 


100 GO TO 120 


110 PRINT “LA ECUACION NO 


TIENE RAICES REALES” 


120 END 


nante de la ecuación, D=B? — 4AC, no sea negativo. (Si D=0 las dos raíces 
resultarán iguales). 


En la página anterior damos un organigrama y en paralelo ponemos el co- 
rrespondiente programa en BASIC para que se pueda cotejar. 


Ejemplo 2: 


Imaginemos que tenemos una serie de datos: 


174, 163,168,174,... 


que, por fijar ideas, supondremos que son las tallas, en centímetros, de una po- 
blación. Se trata de diseñar un organigrama y el correspondiente programa que 
nos dé la media aritmética de los datos introducidos uno a uno en el ordenador. 


Recordemos que para calcular la media se utiliza la fórmula: 


Suma de los datos 
Ms 
Número de datos 
Para poder ejecutar el programa no es necesario conocer de antemano el 
número de datos: podemos conseguir que sea el propio ordenador el que vaya 
contándolos a medida que los vamos introduciendo. 


Estableceremos, pues, una variable N que representará el número de datos 
introducidos hasta el momento (contador) y otra variable S que recogerá la 
suma parcial de los datos (al final en S estará la suma total, en N el número 
total y la media será M = S/N). 


El único problema que se presenta es el de cómo avisar al ordenador de 
que ya hemos acabado de introducir el último dato y que tiene que proceder a 
calcular la media e imprimir el resultado. Esto se puede resolver introduciendo 
en la lista un último dato ficticio (el testigo) que en este ejemplo puede ser el 
dato falso 999999, ya que no va a haber ninguna persona con esta talla. Es cla- 
ro que este dato ni se suma ni se cuenta; únicamente dice que el dato anterior 
a él era el último de la lista. 


Para que el programa pueda ser usado por una persona distinta del progra- 
mador, es conveniente que imprima unas instrucciones previas para el usuario. 


Recogiendo todas estas ideas tenemos el organigrama y programa si- 
vuientes: 
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PRINCIPIO 


INSTRUCCIONES 
PARA EL 
USUARIO 


LEER DATO 
D 


CONTADOR 
N=N+1 


CALCULAR MEDIA 
M = S/N 


IMPRIMIR 


My N 


is 


Fig. 4.3 


10 
20 


30 


40 
al) 
60 


70 


8) 


El 


100 


160 


REM MEDIA DE UNA SERIE 
PRINT “CADA VEZ QUE 
APAREZCA UNA INTERRO- 
GACION” ; 

PRINT “EN LA PANTALLA 
ESCRIBE UN NUMERO DE 
LA”; 
PRINT “SERIE Y  PULSA 
RETURN” 

PRINT “DESPUES DEL UL- 

TIMO DATO INTRODUCE”; 

PRINT “EL DATO FICTICIO 
999999 Y PULSA RETURN”” 


INPUT “DATO”;D 


IF” D=999999 THEN 120 


LET N=N+1 


LET S=S+D 
GO TO 70 


LET M=S/N 


PRINT “LA MEDIA ESM=”; M 
PRINT 

PRINT “EL NUMERO DE 
DATOS ES N=”; N 


END 


RECUERDA 


Bifurcación incondicional GO TO 
Bifurcación condicional IF- THEN 
Contador IF-GO TO 
Organigrama 
Operador lógico 
> 
< 
<> 
X= 
ES 
OR 
AND | 
EJERCICIOS 
4.1) Haz un programa que escriba en la pantalla los 20 primeros números 
naturales. 
4.2) Castiga al ordenador con un programa que le haga escribir 100 veces 
“VACA SE ESCRIBE CON V”. 
4.3) Haz un programa que escriba los 15 primeros números naturales y sus 
cuadrados y cubos (utiliza comas para la impresión). 
4.4) Haz un programa similar al “anterior que escriba los números, su raíz cua- 


drada y su raíz cúbica. La presentación podría ir precedida de dos lí- 
neas de encabezamiento como las siguientes: 


NUMERO RAIZ CUADRADA RAIZ CUBICA 
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4.5) 


4.6) 


4.7) 


4.8) 


4.9) 


4.10) 


4.11) 


4.12) 


4.13) 
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Mejora el ejercicio 3.36 ESCRITURA DE UN SOBRE, poniendo justo 
antes del END un GO TO 20), y sustituyendo las instrucciones LET de 
las líneas 2M, 3M y 4 por INPUT. Así te preguntará los datos para es- 
cribir muchos sobres, igual que hemos hecho en la primera pregunta 
de este capítulo con el programa 1.4. 


Mejora el programa de las divisas en su primera versión (contestación con 
un número) pero añadiendo las libras esterlinas, marcos alemanes y yens 
japoneses. Te quedará mejor si justo antes del END añades un GO TO 
a la línea en que se pregunta “CUANTAS PESETAS QUIERES CAM- 
BIAR”. 


Imaginando que el ordenador no sabe multiplicar, haz un programa de 
multiplicación de números enteros por adiciones sucesivas. (Puedes uti- 
lizar variables enteras, A% por ejemplo, pero entonces no podrás exce- 
der su límite: 32 767). 


Suponiendo que el ordenador no sabe dividir, haz un programa de divi- 
sión de dos números por sustracciones sucesivas. División entera que al 
final dé el cociente sin decimales y el resto. 


Una bañera tiene un grifo y un sumidero. La bañera tiene capacidad de 
L litros, el grifo echa G litros por minuto y el sumidero desagua $ litros 
por minuto. Si la operación empezó cuando la bañera tenía LQ litros, 
calcula cuánto tarda en vaciarse o llenarse, según que G sea mayor o me- 
nor que S. (Si son iguales el programa no acaba nunca por lo que debes 
sacar un mensaje). Haz el programa no mediante ecuaciones, sino viendo 
de minuto en minuto el estado de la bañera. Al final podrías pasar el re- 
sultado a horas y minutos. 


Dados tres números cualesquiera haz un programa que los ordene de me- 
nor a mayor. (Puedes utilizar IF-THEN con OR y AND). Te conviene 
hacer el organigrama. 


¿Cuántas campanadas da un reloj desde la hora H hasta las 24 horas? Haz 
un programa. 


Mejora el programa del ejercicio 3.39) sobre el adulador cibernético, de 
forma que las alabanzas que diga el ordenador varíen con el sexo y edad 
del usuario (Puedes utilizar IF-THEN con AND). 


Haz un programa que sepa encontrar en una serie de diez números el ma- 
yor de ellos. 


4.14) 


4.15) 


4.16) 


4.17) 


4.18) 


4.19) 


4.20) 


Haz un programa que pida dinero al usuario hasta sobrepasar una canti- 
dad que figure en la primera línea del programa (cantidad desconocida 
para el usuario). Al sobrepasar la cantidad el ordenador ha de decir: 
“YA TENGO BASTANTE. NECESITABA... PESETAS. LUEGO ME 
HAS DADO... PESETAS DE MAS”. 


Haz un programa que calcule el factorial de un número. Al ejecutarlo no 
funcionará para números superiores a 33, pues se rebasa el valor máximo 
de las variables numéricas del BASIC. Trata de añadirle después la condi- 
ción de que el número sea entero, y que saque mensaje de error en caso 
contrario. 


A alguno de los programas que hayas hecho añádele al principio unas lí- 
neas para conseguir lo siguiente: el programa va a tener una clave y sólo 
podrá utilizarlo quien la conozca. Nada más empezar preguntas al usuario 
la clave. Si la sabe puede seguir el problema, si no sacas un mensaje como: 
“TOP SECRET. COMO NO SABES LA CLAVE NO TIENES ACCESO 
ALPROGRAMA”. 


En una tienda automatizada de ultramarinos hay J Kg de judías, L de 
lentejas y G de garbanzos, siendo sus precios respectivos P1, P2 y P3. 
Nuestro ordenador, que es el vendedor, pregunta qué producto quiere 
comprar el usuario (es más cómodo, como en el caso de la compra de di- 
visas, que seleccione el producto que le interesa por un número: 1, 2 
Ó 3). Después pregunta qué cantidad y responde una de dos: o que no 
tiene tanto, o que sí tiene, y el precio total de la compra. Por fin pre- 
gunta cuánto le pagamos, y termina contestando lo que nos devuelve 
(prever que algún “listo” podría tratar de pagar de menos). 


Escribe un programa que empiece pidiéndote un número N. Luego calcu- 
lará la suma S de 1? + 2? + 3? +... hasta que esa suma sea igual o ma- 
yor que N. Entonces debe escribir N, S y el último número que ha eleva- 
do al cuadrado y sumado a S. 


Haz un programa que escriba los 50 primeros números, otro que escriba 
los 80 primeros y otro los primeros 200 números. Como nuestra pantalla 
sólo tiene 25 líneas, para que quepan todos en la pantalla necesitarás usar 
comas o puntos y comas. 


Utiliza el algoritmo del ejercicio 4.8 (división entera) para decir si un nú- 
mero es divisible por 3 ó no (resto 0 ó no). 
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4.21) 


4.22) 


4.26) 


4.27 


— 


4.28) 
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Haz un programa que escriba todos los números menores que 50 y no 
divisibles por 3. 


Interesa hacer un programa de conversión de longitudes para los ingleses. 
El ordenador pedirá una longitud en metros, y la convertirá a yardas, 
pies y pulgadas. Una yarda tiene 0,9144 m, y está dividida en 3 pies, y 
cada pie en 12 pulgadas. (Utiliza el algoritmo de división entera). 


Programar la entrada a la cueva de Alí Babá. La cueva sólo se abre si se 
pronuncia la frase mágica. 


Taquilla automática: un ordenador controla el número de plazas libres en 
un autobús de 40 plazas. A medida que la gente le va pidiendo uno o va- 
rios billetes quedan menos plazas libres. Si, por ejemplo, alguien pide 
cinco plazas y sólo le quedan tres contestas con el siguiente mensaje: 
“NO TENGO TANTAS PLAZAS. SOLO ME QUEDAN 3. LE INTE- 
RESAN?”. Cuando el autobús esté completo saca el mensaje de COM- 
PLETO y se termina el programa. 


Una línea de helicópteros tiene paradas en Santander, Palencia y Va- 
lladolid (los trayectos son 1 y 2). El helicóptero tiene 16 plazas. Haz un 
programa semejante al anterior, pero el mensaje de COMPLETO sólo 
aparecerá cuando lo estén los dos trayectos. (Utiliza OR y AND). 


Quieres que el ordenador te pregunte mediante un INPUT las notas de 
los 35 alumnos de la clase, y que vaya contando los muy deficientes 
(MD < 2), insuficientes (2 < I < 5), suficientes (5 < S < 6), bienes 
(6 <B< 7), notables (7 <N < 8,5) y sobresalientes (8,5 < SB). Al final 
deberá aparecer en pantalla el número de alumnos con cada nota. Haz un 
programa para esto. 


En una tienda venden pañuelos por cajas de 10, y también sueltos. Los 
hay de diversas calidades: de 1200, 1500 y 1800 ptas./caja. Llega un 
comprador. Si pide cajas enteras se le venden sin más, pero si pide pa- 
ñuelos sueltos se recarga el precio: un 10% si cada pañuelo vale menos 
de 140 ptas. y un 5% si vale más. Haz un programa que dé el importe 
total según el número de pañuelos pedidos (todos de la misma calidad). 


Haz un programa para enseñar a un niño la tabla de multiplicar. Primero 
le preguntarás (INPUT) qué número quiere repasar, y él dirá, por ejemplo, 
el 7. Entonces sacas en la pantalla 7*1=2?. Si el alumno contesta bien ha 
de salir el mensaje “RESPUESTA CORRECTA”, si no el mensaje sería 
“TE HAS EQUIVOCADO. LA RESPUESTA ES 7x1=7”. Luego lo mis- 


4,29) 


4.30) 


4.31) 


mo con 7*2 y así hasta 7*9. Al final sacarás en la pantalla el número de 
errores cometidos, que si es menor o igual que 2 le dirán al niño que ha 
aprobado, y si no que ha suspendido. 


Retoca el programa anterior para aplicarlo a alumnos más retrasados. Si 
el alumno se equivoca ante la pregunta 7*3=?, sacarás el mensaje: “LA 
RESPUESTA NO ES CORRECTA. PRUEBA OTRA VEZ”. Y si se equi- 
voca de nuevo, le dices como antes “TE HAS EQUIVOCADO. LA RES- 
PUESTA ES 7*3=21”. (Te interesa hacer el organigrama, y puedes uti- 
lizar OR o AND). 


Haz un programa para calcular el recibo de la luz, que se obtiene de la si- 
guiente forma: en concepto de “POTENCIA CONTRATADA”, que sue- 
len ser 5 6 6 Kw en una casa, se pagan unas 150 ptas./Kw; esto es un 
gasto fijo. La energía consumida medida en Kw.h se paga a unas 10 ptas. 
el Kw.h si no se ha llegado a rebasar el primer bloque, cuyo límite es PO- 
TENCIA CONTRATADA*200. Los Kw.h que exceden del primer blo- 
que se pagan a 9 ptas./Kw.h. Un ejemplo de recibo puede ser el siguiente: 


POTENCIA ENERGIA CONSUMIDA 


Bloque 1 Bloque 2 


Kw Pts./Kw Pts. Kw.h Pts./Kw.h Pts.  Kw.h Pts./Kw.h Pts. 


6 150 900 1200 10 12000 129 9 1161 
TOTAL 14061 


Puedes poner las tarifas (150, 10 y 9) como asignaciones LET, y la 
potencia contratada (6) y la energía consumida (1329) como entradas 
INPUT. Si se hubieran consumido menos de 6-200=1200 Kw.h, todos 
se facturarían en el primer bloque. 


La raíz cuadrada de un número real positivo se puede aproximar median- 
te el siguiente algoritmo: se calculan los términos de la sucesión 


X1=1, X2=(Q/X1+X1)/2, X3=(Q/X2+X2)/2, X4=(Q/X3+X3 )/2, etc. 


Haz un programa que, tras preguntar el valor de Q, vaya calculando e im- 
primiendo X1, X2, ... hasta que dos términos consecutivos se diferencien 
menos que 0,0001. Darás ese resultado aproximado por bueno, y como 
comprobación escribe al final Q%.5 
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4.32) Haz el organigrama del siguiente programa: 


10 REM ALGORITMO DE BISECCION PARA HALLAR EL LOGA- 
RITMO DECIMAL DE UN NUMERO X > 1 

20 INPUT “ESCRIBE UN NUMERO MAYOR QUE 1”; X 

30 INPUT “CUANTAS CIFRAS ENTERAS TIENE X” ;K 

40 LET A=1*1P1(K-1) 

SQ LET B=1*101K 

6f INPUT “SE DESEA UN ERROR MENOR QUE”; E 

70 LET M=K-1 

80 LET N=K 

9) IF E<N-M THEN 190 

100 LET Q=(M+N)y2 

119 LET C=(A*B).5 

1209 IF X>C THEN 169 

139 LET B=C 

149 LET N=Q 

159 GO TO 9 

16) LET A=C 

179 LET M=0 

189 GO TO 90 

199 PRINT M;“< LOG (“;X;”)<”;N 

200 END 
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4) 


PROCESOS ITERATIVOS: 
BUCLES 


5.1 CICLOS FOR-NEXT 


Con frecuencia queremos que el ordenador repita una serie de instruccio- 
nes muchas veces, para distintos valores de una variable, que se va incrementan- 
do cada vez según una cantidad prefijada. Un sencillo ejemplo va a aclararnos 
esto: 


Supongamos que deseamos imprimir los cuadrados de todos los números 
naturales comprendidos entre 5 y 12, ambos incluidos. Aquí, la acción que hay 
que repetir ocho veces es “elevar un número l al cuadrado e imprimir el resulta- 
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do”. Y esto hay que hacerlo primero con I=5, luego con I=6, y así sucesiva- 
mente, hasta llegar a hacerlo con I=12. En este ejemplo la variable | se incre- 
menta de uno en uno. 


Pues bien, el ordenador es un trabajador infatigable y puede ejecutar la 
acción cuantas veces nosotros queramos, con tal que lo programemos bien. 
Para ello contamos con unas instrucciones que en nuestro ejemplo son: 


FOR I=5TO 12 (desde I=5 hasta 12) 
y NEXT I (siguiente I) 


He aquí un programa que resuelve el problema anterior: 


1) REM CUADRADOS DE NUMEROS DEL 5 AL 12 
20 FOR I=5 TO 12 


30 LET C=I*I ¡ (Estas líneas se repiten 8 veces, con I=S, 
40 PRINT C No rs 18d 

SY NEXT I 

60 END 


El resultado de la ejecución del programa es la impresión: 


25 
36 
49 
64 
81 
100 
121 
144 


El programa presenta la típica estructura de los ciclos FOR-NEXT: la lí- 
nea 2) FOR I=S TO 12 indica que todo lo que va entre ella y la instrucción 
NEXT Il, en nuestro, caso las líneas 30) y 40, se va a repetir para los valores 
[=5, I=6, ..., I=12. Fíjate que la variable que aparece tras FOR (I en este caso) 
ha de ser la misma que figure detrás de NEXT. 


Para diseñar los organigramas en los que aparezcan los ciclos FOR-NEXT, 
o bucles, utilizaremos los siguientes convenios gráficos: 
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Acción que se repite 


Fig. Sil 


Este problema se podría haber resuelto de otra forma con los recursos de 
los capítulos anteriores: partiendo de I=5, se establece un contador I=I+-1, y 
una instrucción 1F para que cuando el contador sobrepase el valor 12 no se eje- 
cute la bifurcación y se termine el programa. Un programa que responde a estas 
ideas es: 


10 REM CUADRADOS DE NUMEROS DEL 5 AL 12 
20 LET I=5 

30 LET C=1Ix1 

40 PRINT C. 

SY LET I=1+1 

60 IF 1<=12 THEN 30 

70 END 
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Resulta interesante comparar los organigramas correspondientes a los dos 
programas anteriores: 


ORGANIGRAMA QUE UTILIZA ORGANIGRAMA CON UN CONTADOR 
LOS CICLOS FOR—NEXT Y UNA INSTRUCCION IF—THEN 


PRINCIPIO 


PRINCIPIO 


DESDE I=5 HASTA 12 


IMPRIMIR 
C 


Fig. 5.2 
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En realidad el organigrama de la derecha “explica” el de la izquierda. En- 
tre otras cosas puedes observar que: 


1) La acción siempre se ejecuta por lo menos una vez, puesto que siem- 
pre se realiza para el valor inicial de I, ya que el control sobre l se realiza una 
vez que la acción del bucle ha sido ejecutada. 


2) El valor final de la variable I, fuera ya de los ciclos, es siempre más 
grande que el límite superior de 1. En nuestro ejemplo el límite superior de I 
es 12 y el valor final de I es 13; pero observa que no se ejecuta la acción para 
I=13. 


Vamos a utilizar los ciclos FOR-NEXT entre unos límites que podríamos 
calificar de “atípicos”, pero que sirven para clarificar los dos puntos ante- 
riores: 


19 FOR I=5 TO 5 

20 LET C=I*I 

30 PRINT C 

4 NEXT I 

SY PRINT “VALOR FINAL DE I FUERA DEL CICLO”; 1 
60 END 


Este programa imprime: 


25 
VALOR FINAL DE I FUERA DEL CICLO 6 


En el programa anterior vamos a modificar la línea 1(, sustituyéndola por 
la siguiente: 


1) FOR I=5 TO 2 
El programa modificado imprime el mismo resultado que el primitivo. Que 
la IT vaya “aumentando” desde 5 hasta 2 es absurdo. Lo que sucede es que pri- 


mero se realiza el bucle para I=5 y después se comprueba que l ha rebasado ya 
el límite 2. 
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5.2 STEP: PASO 


La instrucción FOR-NEXT es la sentencia reina del BASIC. Vamos a sacar- 
le todo su jugo, toda su potencia, en los apartados que siguen. 


¿Cómo escribirías un programa para obtener los cuadrados de los núme- 
ros pares hasta 20? Si estuviéramos aún en la lección anterior utilizarías una bi- 
furcación y un contador, pero esta vez el contador iría de dos en dos: I=I + 2. 
Un programa podría ser: 


1 REM CUADRADOS DE LOS NUMEROS PARES DE 2 A 2/) 
20 LET 1=2 

30 LET C=Ix*I 

4 PRINT C 

5 LET 1=1+2 

60 IF 1<20f THEN 39 

79 END 


Y el resultado de su ejecución sería en la pantalla: 


La manera de escribir este programa utilizando la instrucción FOR-NEXT 
es la siguiente: 


1 REM CUADRADOS DE LOS NUMEROS PARES DE 2 A 20) 
2f FOR I=2 TO 2 STEP 2-—Observa el cambio 


39 LET C=Ix] 
40 PRINT C 
SQ NEXT I 

69 END 
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Hemos incluido en la instrucción FOR de la línea 2f el STEP (paso o sal- 
to), que indica cuánto se va a incrementar la variable l en cada nueva ejecución 
de las instrucciones del bucle o iteracción. En el organigrama habrá que incluir 


el STEP: 


PRINCIPIO 


DESDE I=2 HASTA 20 
PASO 2 


Fig. 5.3 


Cuando el paso es 1 no es necesario ponerlo, pero si es cualquier otro va- 
lor hay que escribir STEP... El STEP no tiene por qué ser un número entero, 


puede tener decimales. Por ejemplo: 


19 FOR I=1fP0 TO 20 STEP .7 


e. 
. AL 
4 CA AD O 


. 
U 


SN NEXT 1 


a or 


NS 5 pen 
SITES 


El bucle se sigue ejecutando mientras sea 1 < 20, y la última iteración sería 
para I=19.8. En la siguiente, I valdrá 20.5 y por ser 20.5 > 20 se pasa a la línea 
siguiente a NEXT I, que es la 64. El valor final de I fuera del ciclo será I=20.5. 


El STEP puede ser también negativo. Mira por ejemplo una solución del 
ejercicio 4.15 (Programa del cálculo del factorial de un número) utilizando la 
instrucción FOR-NEXT con STEP —1. 


1) REM CALCULO DEL FACTORIAL DE UN NUMERO 
20 INPUT N 

30 LET F=1 

4f FOR I=N TO 1 STEP -—1 

SQ LET F=FxI] 

60 NEXT 1 

70 PRINT “EL FACTORIAL DE”;N;“ ES”;F 

8f END 


Supongamos que al INPUT N de la línea 2f contestamos con el valor 7. 
Veamos qué valores va tomando F. 


En la primera iteración el valor de F era 1, y N vale 7, luego en la línea 50 
tenemos F=1*x7 (=7). En la segunda ejecución de las instrucciones del bucle 1 
vale 6, y como F valía 7, ahora resulta F=7*6. En la tercera vuelta I vale 5, y se 
tiene F=7*6*5. Y así sucesivamente hasta que Il vale 1. En ese momento F vale 
7x6*5*4*3*2x*1, es decir, F=7! Ahí se termina el bucle y se pasa, en la línea 
7, a imprimir el resultado: 


EL FACTORIAL DE 7 ES:5049 


Hay que resaltar que cuando el paso es negativo, el bucle se continúa eje- 
cutando mientras I > 1 (en nuestro ejemplo), al contrario qué cuando el paso 
era positivo. 


5.3 VARIABLES Y FORMULAS EN LA INSTRUCCION FOR-NEXT 


En el ejemplo anterior, sobre el factorial de un número, puedes ver que el 
valor inicial de la variable del bucle, no es una constante, sino la variable N, 
cuyo valor se da previamente mediante el INPUT de la línea 2f. Lo mismo se 
puede hacer para el valor final de la variable del bucle y para el paso: pueden 
ser constantes, pero pueden ser también variables, e incluso pueden ser expre- 
siones. Así, serían perfectamente válidas las siguientes líneas: 
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SQ FOR A=7 TO B*2 STEP (B-1)/2 
5Q FOR V2=A+B TO 3xA 
SY FOR LP=(IN+ND/2 TO 3.1416*R STEP .1 


Siempre detrás del FOR hay una variable (A, V2, LQ, en los ejemplos ante- 
riores) que es la variable de ejecución del bucle, y que no puede ser ni una cons- 
tante niuna expresión. 


Una advertencia: cuando en un bucle FOR-NEXT utilices variables o ex- 
presiones, como en los tres ejemplos superiores, su valor se calcula sólo la pri- 
mera vez, cuando se inicia el bucle. Por ejemplo, si en un momento B vale 7, la 
línea: 


SY FOR A=7 TO B?2 STEP (B-1)/2 (1) 
queda sustituida por la siguiente: 
SY FOR A=7 TO 49 STEP 3 (2) 


Aunque B cambie de valor, por ejemplo dentro del bucle, la línea (1) ha 
quedado calculada para B=7 y sustituida por la línea (2). Sólo si volviéramos a 
empezar el ciclo, volvería a buscar el posible nuevo valor de B, por ejemplo $5, 
para sustituir la línea (1) por la siguiente: 


5f FOR A=7 TO 25 STEP 2 


5.4 BUCLES SIN SALIDA: INTERRUPCION DE UN PROGRAMA 


El siguiente ejemplo es un bucle que no termina nunca: 


o 
SY FOR I=10 TO 20 
60 I=I-1 


9M NEXT 1 
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La variable I empieza valiendo 10. En la línea 6f pasa a valer 9, y en la 90) 
vuelve a valer 10, y retorna a la línea 5f). Así se reitera una y otra vez el pro- 
ceso, sin parar nunca. 


El mismo problema te daría la línea: 
50 FOR A=3 TO 7 STEP QQ 


En este bucle A va a valer siempre 3, sin llegar nunca a 7. 


En estos casos el ordenador está trabajando sin parar, y hasta ahora no he- 
mos visto remedios para este desenfreno, por lo que lo único que podrías hacer 
sería apagar el ordenador. Lo malo es que así se ha perdido el programa, que 
quizá no tenías grabado, y el trastorno puede ser grave. 


Para estos casos los ordenadores tienen la tecla [STOP]. Pulsando la tecla 
STOP | el programa se para, y aparece en la pantalla el mensaje: 
BREAK AT LINE 70 


si era la línea 70 la que se ejecutaba en ese instante. Se dice que el ordenador 
pasa así al modo “COMANDO”, ya que puedes utilizar los diversos comandos 
que conoces, RUN, NEW, y en particular LIST para estudiar el bucle y ver dón- 
de está el fallo. 


La tecla tiene más aplicaciones. Por ejemplo, cuando un programa 
da resultados que tú sabes que son incorrectos, lo puedes chequear interrum- 
piéndolo con [STOP], y preguntándole los valores que en ese momento tienen 
las variables. En el modo “COMANDO” tecleas: 


PRINT A (RETURN| (Sin número de línea) 


y la máquina da el valor de A, o de la variable que quieras pedirle. 


STOP es también una instrucción, que puede incluirse como tal, con nú- 
mero de línea en un programa. Al llegar a ella el programa se para y saca el 
mensaje: 


BREAK AT LINE 909 


si era en la línea 9 donde estaba el STOP. Esto es útil por ejemplo para frac- 
cionar las salidas: a veces la salida de un programa son muchas líneas, y como 
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salen deprisa puedes perderlas por arriba de la pantalla. Con STOP puedes ha- 
cer que cada veinte líneas, por ejemplo, el programa se pare, y te dé tiempo a 
observar los resultados. 


Para continuar un programa detenido por la tecla STOP o por la instruc- 
ción STOP, se escribe el comando CONT (de continuar), y la ejecución sigue. 


Sin embargo, si has rectificado el programa, porque tenía errores, o mo- 
dificas alguna variable, no se puede continuar; hay que volver a empezar desde 
el principio. Si escribes CONT en este caso, la máquina contesta algo así como: 


CAN”T CONTINUE ERROR 


Has de teclear RUN para empezar desde el principio. 


5.5 ENTRADAS Y SALIDAS EN BUCLES FOR-NEXT 


Para salir de un bucle no es necesario terminar su ejecución hasta el final. 
Se pueden poner salidas intermedias, por ejemplo mediante bifurcaciones con- 
dicionales (IF-THEN). 


Hagamos mediante un bucle FOR-NEXT el último ejemplo de la lección 
anterior: 


PRINCIPIO 


INSTRUCCIONES 
PARA EL 
USUARIO 


DESDE N=0 HASTA 1000 
LEER DATO 
D 


¿ES 
D =999999 
2 


Ele 


190 

CALCULAR MEDIA 120 
M=S/N 

130 


IMPRIMIR 


M YN 140 


150 


169 
Fig. 5.4 
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REM MEDIA DE UNA SERIE 


QUE NO PASE DE 1000 DATOS 
PRINT “CADA VEZ QUE APA- 


REZCA UNA  INTERROGA- 
CION” 
PRINT “EN LA PANTALLA 


ESCRIBE UN NUMERO DE LA 


SERIE” 
PRINT “Y PULSA RETURN” 
PRINT “DESPUES DEL ULTI- 


MO DATO INTRODUCE” 
PRINT “EL DATO FICTICIO 


999999” 
FOR N=0QTO 1000 


INPUT “DATO”;D 


IF D=999999 THEN 120 


LET S=S+D 


NEXT N 


LET M=S/N 


PRINT “LA MEDIA ESM="";M 
PRINT 


PRINT “EL NUMERO DE DA- 
TOS ES N=”;N 


END 


Ya conoces de la lección anterior el funcionamiento de este programa. 
Interesa únicamente añadir, que si quieres meter más de 1.000 datos no puedes 
hacerlo con este programa, pues el NEXT N de la línea 110, al llegar a N=1.000 
te saca del bucle pasándote a la línea 12f, para calcular la media e imprimir los 
resultados, sin opción a introducir más datos. Pero lo arreglarás fácilmente po- 
niendo por ejemplo: 


79 FOR N=Q TO 1000000 


o incluso límites superiores, de forma que estés seguro de que nunca llegarás a 
ellos. 


Hemos visto que son lícitas las salidas de un bucle sin pasar por la instruc- 
ción NEXT. Sin embargo, nunca son lícitas las entradas en un bucle sin pasar 
por la instrucción FOR. Un diagrama como el siguiente supondrá un mensaje de 
error cuando se ejecute el programa correspondiente. 


Fig. 5.5 


La máquina contestará: 
NEXT WITHOUT FOR ERROR 


o un mensaje similar. 


5.6 BUCLES ANIDADOS 


Entre las instrucciones que se pueden poner en un bucle FOR-NEXT, para 
que se repita su ejecución tantas veces como se quiera, está la propia instruc- 
ción FOR-NEXT: se puede poner un bucle dentro de otro. Veámoslo con. un 
ejemplo: escribir aquéllos números de tres cifras, tales que son iguales a la suma 
de los cubos de las tres cifras. 


Es decir: si A, B y C son tres enteros del 0 al 9, queremos que el número 
ABC=100A + 10B + C (donde A 4% 0 pues si no el número tendría en realidad 
dos cifras) sea igual a A? + B? +C?. 


10 REM EJERCICIO NUMERICO 
2 FOR A=1 TO 9 


30 FOR B=Q TO 9 

4 FOR C=0 TO 9 

al!) LET N=100xA+10*B+C 

60 LET X=Ax*A*A +BxBxwB+Cx*C*C 
70 IF N<>X THEN 9 

80 PRINT N 

9 NEXT C 

100 NEXT B 

119 NEXT A 

129 END 


En la línea 2 comienza la ejecución del bucle de variable A, dando a A el 
valor 1. La primera instrucción que incluye este ciclo es comenzar otro en la 
línea 30) con la variable B, dándole el valor 0; y a su vez, la primera instrucción 
que realiza éste, es otro bucle FOR-NEXT en el que se asigna a C el valor 0. Se 
tiene A=1, B=0 y C=0; luego en la línea 5, N vale 100, el primer número de 
tres cifras. 


En la línea 60 se calcula el valor X=A? + B? + C?. En la línea 70 se com- 
paran los valores de N y X, y sólo si se cumple la condición, se salta la línea 8(/. 


El NEXT C de la línea 90 nos remite a la 4), pero ahora C vale 1. Se trata 
del número 101, para el que se calcula X, y como 1? + 07 + 13 =2+%1]01 se 
salta otra vez a la línea 9N) que nos remite de nuevo a la 4f) pero con C=2. 


Este proceso termina cuando C vale 9. Entonces, con independencia de 
que haya aparecido ya en la pantalla algún resultado, como C ya ha alcanzado 


el valor 9, se pasa a la línea siguiente, que es NEXT B. Ahora volvemos a la lí- 
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nea 3/) pero B vale 1, y en la línea 4 se reitera el bucle de C empezando por el 
valor C=0. Es decir, se van a estudiar los números comprendidos entre 110 y 
119. Después B valdrá 2, e irá creciendo hasta llegar a 9, hasta estudiar los nú- 
meros 190 a 199. 


En este momento el bucle de B se ha terminado y se pasa a la línea 110, 
al NEXT A, que supone una vuelta a empezar con A=2, B=0 y C=0. Sucesi- 
vamente se estudian todos los núln:eros entre 100 y 999. El organigrama sería: 


PRINCIPIO 10 


DESDE A =1 HASTA 9 0 


DESDE B=0 HASTA 9 30 


ls 
pl 

E 70 

al Ñ 


AN És 
SIGUIENTE B 100 
E 


FIN 120 


N 
Xx 
5 
NO 
¡UIENTE 
SIG ¡TEA 


Fig. 5.6 
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Haz el programa como ejercicio y verás que tiene cuatro soluciones. 


Para terminar, otra regla que debes conocer es que no es correcto “sola- 
par” los bucles FOR-NEXT. Así, mientras es lícito anidarlos, incluso varias ve- 
ces, no lo es solaparlos. El siguiente organigrama da lugar a un programa que no 
funciona, habría mensaje de error. 


PRINCIPIO 


DESDE A=1 HASTA 7 
ES AN 
DESDE B=8 HASTA 33 E 


Se solapan 


SIGUIENTE A 
SIGUIENTE B 


Fig. 5.7 


Dicho de otra forma: en los bucles anidados el primer bucle que se abre es 
el último que se cierra. 
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RECUERDA 


Bucles 
Se ejecutan al menos una vez 
Iteraciones 

Bucles sin salida 

Salidas de un bucle: lícitas 
Entradas a un bucle: error 


Bucles anidados 


STOP| tecla 
STOP instrucción 
Reanudación de un programa CONT comando 


Interrupción de un programa 


EJERCICIOS 


Muchos ejercicios del capítulo 4 se resuelven más fácilmente y de forma 
más clara utilizando la instrucción FOR-NEXT. Trata de mejorar así los siguien- 
tes ejercicios: 


4.1) 4.2) 4.3) 4.4) 4.7) 
4.8) 4.11) 4.19) 4.21) 4.26) 
4.28) 4.29) 


Puedes resolver otros como en el ejercicio de la pregunta 5.5: un bucle de 
límites amplios y una salida mediante un dato testigo o alguna bifurcación con- 
dicional: 


4,5) 4.9) 4.18) 4.31) 


5.1) A continuación se muestran algunos esqueletos de bucles FOR-NEXT. 
Indicar cuáles, si es que hay alguno, están escritos incorrectamente: 


a) 


b) 


c) 


d) 
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1Q FOR K=K1 TO K2 


59 K=K+1 


9 NEXT K 
1Q FOR Cl1=Q TO 5Q STEP 


35 FOR C2=Q TO Cl 


65 NEXT C2 


109 NEXT Cl 
19 FOR J=1 TO N 


o 

o 

49 FOR K=1 TO M 
o 

Oo 

o 

70 NEXT J 

e 


129 NEXT K 
1Q FOF X=A TO B STEP C 


49 NEXT C 


3.2) 


5.3) 


5.4) 


$31) 


5.7) 


Hacer el ejercicio 4.18) con una pequeña modificación: que en la panta- 
lla no sólo se obtengan los resultados finales, sino que también se vayan 
imprimiendo los resultados parciales de la sucesión: 1?, 1? + 2?, 1? + 
+ 2? +3?,... hasta llegar al resultado final, sacando entonces un mensaje 
adecuado. 


Hacer el problema 4.24). Sólo si hay plazas libres el ordenador saca el 
INPUT: CUANTOS BILLETES DESEA? Si el viaje ya está completo 
en la pantalla sale COMPLETO y se termina el programa. 


Programar la tabla de multiplicar del 7 de modo que aparezca de la for- 
ma: 


PE 


Con el segundo factor variando de O a 9. Primero STEP 1, luego STEP 
0,5. 


Construir una tabla de valores de la función y=x? + 3x — 7, desde 
X=1 hasta X=2, aumentando X de décima en décima. 


Calcular los siguientes números: 


IS, | | 
SE 
idad cai A 100 


O A UA 1 
paz 


1 1 1 ] 


El último puedes hacerlo mediante dos bucles anidados . 


Calcular los siguientes números combinatorios: 


AD AA 


5.8) 


5.10) 


5.11) 


5.12) 


5.13) 
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(Atención: los valores 36! y 49! pueden exceder el valor máximo de una 
variable en tu ordenador). 


Construir un programa para enseñar las tablas de sumar a un niño (pareci- 
do al programa 4.28). 
Sabiendo que la ecuación X* — X? — 8X — 5 =0 tiene las tres solucio- 


nes en el intervalo [—2,4], hallarlas con un error menor que una centé- 
sima. (Escribir una tabla de valores variando la X de centésima en cen- 
tésima. Los cambios de signo corresponden a intervalos con solucio- 
nes). 


Calcular la suma de los cien primeros enteros impares. 


El valor de sen (x), que estudiaremos en el próximo capítulo, puede 
aproximarse mediante la siguiente función: 
x? xo x? 
sen (Xx) = x — 5 +7 57 (x en radianes) 


Haz el programa de una tabla de la función seno de 0% a 45% con valores 
de grado en grado. 


(Atención: has de pasar los grados a radianes). 


Al nacer un niño, su madre le abre una cartilla de ahorros y le ingresa to- 
dos los años 1.000 ptas. el día 1 de enero. Al dinero que ingresa la madre 
se le añaden unos intereses anuales del 8% sobre la cantidad que en ese 
momento tenga ahorrada. El abono de los intereses se hace el 31 de di- 
ciembre de cada año. Después de 25 años, el chico retira sus ahorros. 
¿Cuánto dinero le dan? 


He aquí un algoritmo (procedimiento) para calcular el valor de Tr: 


En una circunferencia de radio unidad, el lado del cuadrado inscrito vale 
L; =vV2 y el perímetro del cuadrado es PERIM = 4vV/2. 


El octógono inscrito tiene de lado: 


=W(11/2* +(1 - 11/29 =VL1?/2+ 1 - Ly 


y su perímetro será PERIM= 8*L¡ 


| == 
¿SS 


SA 


Fig. 5.8 


Si aumentamos en progresión geométrica de razón 2 el número de lados 
del polígono inscrito, la longitud del lado que resulta es: 


La=W2-Wé=TL41 
y su perímetro será: PERIM = 2n+l *Ln (1) 


Cuando n tiende a infinito, el lado tiende a cero, el polígono inscrito 
“tiende” a la circunferencia, y su perímetro a 27 R (en este caso hace- 
mos R = 1). Por lo que dividiendo el perímetro calculado en (1) entre 2 
tenemos aproximaciones de Tr cada vez más exactas. 


Un programa podría ser: 


1 REM ALGORITMO PARA EL CALCULO DE 7 


20 L=2*.5 
3 PRINT “N. LADOS”, “APROXIMACION DE 7” 
40 PRINT t=======”, “=== ==========="” 


5SQ FOR I=2 TO 20 

60 L=(2-(4-L?2)f.5)%.5 
79 PERIM=L+w21 (I+1) 

80 PRINT 21(I+1), PERIM/2 
9) NEXT 1 

109 END 
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5.14) 
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Te encontrarás con un problema de falta de precisión del ordenador: 
cuando L es muy pequeño, la máquina tomará L? =0 y en la línea 60 se 
tiene L=V 2 —Y4=0 


Y si el lado es O, el perímetro es O y rr valdría O. Para resolver bien este 
problema el ordenador tendría que utilizar muchas cifras significativas, o 
tomar valores más próximos al cero que 1/38 


INTEGRACION NUMERICA: METODO DE LOS RECTANGULOS 


Dada una función Y = F (X), continua en el intervalo cerrado [A, B], 
un valor aproximado de la integral 


B 
Pros 
A 


puede calcularse por el método de los rectángulos, que vamos a justificar 
en el caso de que la gráfica de la función F, esté siempre por encima del 
eje de abscisas, aunque el método es válido cualquiera que sea el signo de 
los valores que tome la función. 


En el caso de que F tome valores positivos, la integral coincide con el 


área de la región plana limitada por la gráfica de F, el eje de abscisas y las 
rectas de ecuaciones X= A y X = B (ver Figura 5.9). 


Fig. 5.9 


Para hallar un valor aproximado de la integral dividimos el segmento 
[A, B] en N partes iguales (en la figura se ha dividido en 7 partes iguales). 


Cada una de estas partes tiene por longitud el número P=(B-—A)/N, que 
será la base de cada uno de los rectángulos que aparecen en la figura. 
Cada rectángulo tiene una altura igual al valor que toma la función en el 
extremo de la derecha de cada intervalo parcial; así la altura del primer 
rectángulo es F(A + P), la del segundo es F(A + 2P), y así sucesivamen- 
te, la del último será F(A + NP) = F(B). 


La suma de las áreas de los N rectángulos será un valor aproximado de la 
integral: 


S =P-F(A+P) + P-F(A+2P) +... + P-F(A+NP) 


Si queremos una aproximación mejor tendremos que dividir el segmento 
[A. B] en un número mayor de partes. 


A continuación damos un organigrama para hallar el valor de S para una 
función F. Los valores A y B de los extremos del intervalo y el número N 
de divisiones serán metidos en el programa mediante INPUT. 


PRINCIPIO 


EXTREMOS Ay B 
NY de PASOS NM 


S=S +P-+F1X) 


IMPRIMIR 
N2 DE PARTES N 
SUMA $ 
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Otra posibilidad, que puede acortar el tiempo de ejecución del programa, 
es sacar factor común P: 


S = PA FCA+P) + F(A+2P) +... + F(A+NP) ) 
Mediante el ciclo FOR-NEXT se puede calcular la suma del paréntesis, 
asignándole la variable SU por ejemplo. Al final 
S =P-SU 


Hacer un programa para calcular un valor aproximado de las integrales: 


3 2 
dx b) e * dx 
l -3 


(En BASIC e* es EXP(X) ) 


6 
FUNCIONES DE LIBRERIA 


6.1 INTRODUCCION 


En el capítulo 2 vimos las operaciones aritméticas: +, *, etc. Igual que las 
calculadoras de bolsillo, los microordenadores con lenguaje BASIC pueden ha- 
cer otras operaciones como: hallar logaritmos, calcular valores de funciones tri- 
gonométricas, exponenciales, etc. Es lo que vamos a ver en este capítulo. 


Estas “operaciones” se llaman funciones de librería. No se designan por 
una tecla, como en las calculadoras, sino por las iniciales de la función o una 
abreviatura (del inglés). En las operaciones aritméticas se trabaja con dos canti- 
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dades (suma, producto, etc., de dos cantidades). Las funciones de librería sue- 
len trabajar sobre una sóla cantidad que se llama argumento y se pone entre 
paréntesis. 


6.2 PARTE ENTERA DE UN NUMERO: INT 


La parte entera de 3,25 es 3; la parte entera de 0,277 es 0 y la parte ente- 
ra de —-3,27 es -4 (¡Cuidado!). Por definición la parte entera de un número 
real X es el mayor de los enteros menores o iguales que X. La parte entera se 
toma siempre por defecto. 


El nombre en BASIC de la función parte entera es INT. Así, por ejemplo, 
en el programa siguiente se tiene: 


10 LET A=INT (5.225) A=S 
20 LET B=INT (7.25) =-8 
30 LET C=INT (6) C=6 
4Q LET D=INT(-6) D=-6 


El argumento de las funciones de librería puede ser una constante, como 
en el ejemplo anterior, pero puede ser también una variable e incluso una fór- 
mula. Esto es válido para todas las funciones de librería. Mira el siguiente ejem- 
plo: 


10 INPUT N 

209 PRINT INTO), INT(N?2),INT(N 1 3) 

3 END 

Si al correr el programa contestamos a la interrogación del INPUT con el 
valor —2,3, se tiene N=-2,3, N? = 5,29 y N? = —12,167, y el programa escri- 
birá: 

-3 S —-13 


A primera vista puede parecernos que la función INT es de poca utilidad. 
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Sin embargo esta función es una de las más importantes del BASIC. Veamos 
una primera aplicación: la división entera de números naturales. 


La división 37 8 


5 4 


es una división entera. Dados dos números, dividendo (37) y divisor (8): se trata 
de hallar otros dos, cociente (4) y resto (5) que cumplan las condiciones: 


Dividendo = divisor . cociente + resto 


— 
le 


ty 


2 (O <resto< divisor 


En nuestro ejemplo: 


2 0<5<8 


Efectuar una división entera es hallar el cociente entero y el resto. Median- 
te la función INT podemos hallar ambos. La mayor parte de los ordenadores no 
efectúan directamente la división entera. Si nosotros dividimos 37/8,la respues- 
ta es 4,625, pero a partir de aquí podemos hallar el cociente y el resto enteros. 


El cociente entero será INT(37/8). El ordenador calcula primero el argu- 
mento y resulta INT (4.625) que da 4. El resto tiene la siguiente expresión: 
37 — INT(37/8 )*8 
aplicando la primera condición de la división entera. Es la diferencia entre el 
dividendo (37) y el cociente por el divisor (4x8). 


Todo esto se aplica frecuentemente, por ejemplo, para ver si un número A 
es divisible por otro B. La división será exacta cuando el resto sea O. De ordina- 
rio puedes emplear otra expresión más sencilla: A es divisible por B si, y sólo si, 


INTC(A/B)=A/B 


ya que la expresión anterior equivale a decir que A/B no tiene decimales, es 
una división exacta. 


Otra aplicación de la función INT es fijar el número de decimales para 
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la presentación en pantalla. Habrás hecho ya progran as que te dan unas sali- 
das que inundan la pantalla de números decimales, perdiendo claridad. Si quie- 
res escribir un valor aproximado de una cantidad A, con sólo dos decimales, 
puedes poner: 


B=INT(A*190)/190 


Primero se multiplica el número por 100 y se hau'' la parte entera, per- 
diendo el resto de los decimales. Después se divide por 106 y queda la cantidad 
inicial pero sólo con dos decimales. Por ejemplo: 


PI = INTG.14159*100)/100 = INT(314.159)/100 =314/1P0=3.14 


6.3 NUMEROS ALEATORIOS: RND 


Un número aleatorio es aquel que se escoge al azar entre los de un conjun- 
to dado. Por ejemplo: al lanzar un dado obtenemos un número natural aleato- 
rio comprendido entre 1 y 6. Sia la cara de una moneda le asignamos el núme- 
ro 0 y a la cruz el 1, al lanzarla obtenemos el número aleatorio 0 o el 1. 


En cada uno de estos ejemplos los números 1 al 6, o los números 0 ó 1, 
se presentan con igual probabilidad. Pero también cabe imaginarse otros ejem- 
plos en los que unos resultados tienen más probabilidad que otros usando, por 
ejemplo, dados o monedas trucados. 


En programas de juegos o de simulaciones interesa con frecuencia que el 
ordenador “piense” un número al azar entre dos números dados. Para eso dis- 
pone de una función, RND, abreviatura de random = azar, que da un número 
aleatorio comprendido entre 0 y 1. 


Así, por ejemplo, RND(5) puede ser 0.74372578. En la siguiente ejecu- 


ción RND(5) será otro número aleatorio. Ejecuta el siguiente programa: 


1) REM EXPERIMENTO ALEATORIO 
2Q FOR I=1 TO 5 


30 LET A=RND(7) (1) 
4 PRINT A 

SY NEXT I 

69 END 
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Cada vez obtendrás un resultado distinto. Nosotros lo hemos ejecutado 
dos veces y hemos obtenido los siguientes valores: 


RUN 

. 416932766 
.661745879 
. 980122777 
. 749416917 
. 917968972 
READY 


RUN 
0959731361 
757597443 
(120646175 
127581985 

3.40876882E- 03 


Como ves son valores más o menos uniformemente repartidos. En un lugar 
hemos puesto RND(5) y en el programa RND(7), y es que el efecto de “azar” 
que realiza la función RND es independiente del argumento, que puede ser tam- 
bién una variable o una fórmula. Con todo, este es un punto en el que puedes 
profundizar consultando el manual de instrucciones de tu microordenador. Por 
ejemplo, algunos no utilizan argumento, y ponerlo daría un mensaje de error, 
y utilizan además la instrucción RANDOMIZE. 


Los números aleatorios que obtenemos con la función RND están com- 
prendidos entre O y 1, esto es: 


Y < RND(UON)< 1 
¿Cómo llegar, entonces, mediante la función RND a simular el lanzamien- 
to de un dado? Tendríamos que obtener aleatoriamente valores enteros del 1 al 
6, y lo vamos a ver en tres pasos sucesivos. Inicialmente tenemos: 
f < RND(2)< 1 
Si se multiplica por 6 el valor de RND, resulta: 


V <6*RNDQ)<6 
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Puedes sustituir en el programa (1) la línea 30 por la siguiente: 


3 LET A=6*RND(2) 


Al ejecutarlo hemos obtenido los valores 


3.27417616 
5.17290744 
P.55671922 
1.43246516 
2.6225 


comprendidos entre 0 y 6. 


Si tomamos su parte entera y ponemos un punto y coma (:) al final de la 


línea 4/, nos queda: 


2 q. Y l 


ba 


Observa que el menor número que se puede obtener es el O y el mayor el 5. 


Si, por fin, les sumamos la unidad, resultan los números: 


4 6 ] 


109) 
¡03 


que son los puntos que se pueden obtener al lanzar un dado. De estas ideas 
obtenemos la fórmula que hay que emplear en la simulación del dado: 


124 


D = INT(6*RND(2) )+1 


Un programa podría ser: 


10 REM SIMULACION LANZAMIENTO DADO 
209 FOR I=1 TO 10 

3f LET D=INT(6*RND(3))+1 

4 PRINT D: 

SY NEXT 1 

6QY END 


que nos ha dado como resultados: 


RUN 
34.56.13145 3 
READY 
RUN 
512.142.146 4 
READY 


6.4 FUNCIONES TRIGONOMETRICAS 


Los microordenadores tienen las siguientes funciones trigonométricas: 


SIN(X) Calcula el seno de X sen Xx 
COS(X) Calcula el coseno de X COS X 
TAN(X) Calcula la tangente de X tex 
ATN(X) Calcula el arco tangente de X arctg Xx 


Algunos ordenadores tienen definidas también arco seno y arco coseno. 


En estas funciones los ángulos van siempre en radianes. Así, si pones 
SIN(30) la máquina “entiende” seno de 30 radianes, es decir, seno de(30.+180)/7 
grados: sen 1718,87% = -0,988. Si lo que querías era el seno de 30 grados has 
de pasarlo a radianes: 


SIN(30*3.14159/180)=.5 


De igual forma ATN(1)=.7853981, que pasado a grados es: 
.7853981*180/3.14159=45", arco cuya tangente es 1. 


6.5 LA FUNCION PRINT TAB 


En cada línea de impresión de la unidad de salida (pantalla o impresora) 
cabe un número determinado de caracteres. Supongamos que en nuestro or- 
denador el número de caracteres por línea es 40. Esto quiere decir que en cada 
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línea hay 40 posiciones donde imprimir, numeradas del O al 39 (otras máquinas 
pueden numerar del 1 al 40). Veamos qué significado tiene la instrucción si- 
guiente: 


60 PRINT TAB(25);A 


Cuando se ejecute esta sentencia el cursor correrá hacia la derecha hasta 
colocarse en la posición 25, e imprimirá el valor de A a partir de ahí. Es un pa- 
pel idéntico al del TABULADOR de las máquinas de escribir corrientes. 


Emplearemos una sentencia TAB cuando nos interese escribir caracteres 
en posiciones determinadas. Vimos en el tercer capítulo la utilización de la co- 
ma (,), y del punto y coma (;) en instrucciones PRINT para tener salidas claras 
y elegantes. La función TAB es todavía más potente en este sentido. TAB se 
suele terminar en punto y coma (;). 


Como en las demás funciones, el argumento puede ser un número, una 
variable, o una expresión, eso sí, cun valores positivos. Podríamos escribir: 


TAB(17) 
TAB(ID) 
TAB(INT(3*C) ) 


Mira el siguiente ejemplo: 


90 PRINT TAB(3); “NUMERO DE HIJOS”; TAB(K);N 


Si K es suficientemente grande, 25 por ejemplo, se escribirá NUMERO 
DE HIJOS a partir del espacio 3 y a partir del 25 el valor de N. Sin embargo 
si K es pequeño, 10 por ejemplo, al escribir NUMERO DE HIJOS se ha reba- 
sado la posición 10. Cuando el cursor se encuentra a la derecha de la posición 
señalada por TAB, la función TAB se ignora y la impresión se efectúa a conti- 
nuación. Se imprimiría el valor de N a continuación de NUMERO DE HIJOS, 
como si estuvieran separados sólo por un punto y coma (;) prescindiendo de 
TAB(K). 


Si K no fuera entero, la función TAB trabajaría sobre su parte entera, y 
así TAB(27.38) equivale a TAB(27), y TAB(27.97) equivale también a TAB(27). 
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Veamos el siguiente ejercicio: programar la impresión de la tabla: 


posición 1 posición 11 posición 21 
Xx x/2 X/3 

1 iS 333333333 
Z 1 .666666666 
3 1.5 l 

4 2 1.33333333 
3 20 1.66666666 
6 3 2 

7 3.5 2.33333333 
8 4 2.66666666 
9 4.5 3 

10 5 3.33333333 


Un programa podría ser: 


1 REM TABLA DE MITADES Y TERCIOS 

20 PRINT TAB(1);“X”;TAB(U 1);“X/2”;TABQ1),%X/3” 
3fQ FOR X=1 TO 10 

40 PRINT TAB(0);X;TAB(10);X/2;TAB(20);X/3 

SQ NEXT X 

60 END 


Observa que en la línea 4) los argumentos de TAB son 0, 10 y 20, inferio- 
res en una unidad a los de la línea 2f). Esto se debe a que al imprimir X, X/2 
o X/3 en la línea 4f el primer espacio lo ocupa el signo, y como aquí es positi- 
vo se omite, y queda el primer espacio en blanco; por lo que el número queda 
desplazado un lugar hacia la derecha. Por eso hemos desplazado un lugar hacia 
la derecha la cabecera X, X/2 y X/3. 


El siguiente programa nos asoma a las posibilidades gráficas que tiene el 
ordenador con la función TAB. 


1 REM REPRESENTACION GRAFICA 
20 FOR I=1 TO 15 

30 PRINT TAB(40-1);“x” 

40 NEXT 1 

SY END 
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cuyo resultado en pantalla es: 


Fig. 6.1 


La función TAB también es útil para la edición de textos. Supongamos 
que queremos disponer de un programa que, tomando los datos de nombre y 
dirección, escriba sobres como éste: 


SR. D. JOSE ALVAREZ FERNANDEZ 
CALLE BELLAVISTA 37 
MADRID — 43 


He aquí un programa: 


1Q REM ESCRITURA DE UN SOBRE 

20 INPUT “NOMBRE Y APELLIDOS”:;NS$ 
30 INPUT “CALLE”;C$ 

49 INPUT “POBLACION”:;PS 

SQ PRINT TAB(6);“SR. D. ”+NS$ 

6 PRINT 

79 PRINT TAB(6): “CALLE”; TAB(12):C5$ 
89 PRINT 

90 PRINT TAB(12);PS 

109 END 
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6.6 OTRAS FUNCIONES PARA FORMULAS Y OPERACIONES 


SQR( ) 


ABS( ) 
LOG( >) 


EXP( ) 


SGN( ) 


Es una contracción de SQUARE: ROOT = RAIZ CUADRADA. 
Halla la raíz cuadrada del argumento encerrado entre paréntesis, 


y da mensaje de error si el argumento es negativo. Función análoga 
at.s 


Calcula el valor absoluto del argumento. 


Halla el logaritmo neperiano, o en base e, del argumento. Para obte- 
ner un logaritmo decimal hay que aplicar la fórmula del cambio de 
base: 


log¡¿N = LOG(N)/LOG(10) 
Calcula el valor del número e elevado al argumento. Es la función 


exponencial, con la ventaja de que tiene en memoria el número e con 
muchos decimales y no hay que teclearlo. 


Signo. Toma el valor 1 si el argumento es positivo, —1 si es negativo y 
O si es nulo. 


6.7 DEFINICION DE UNA FUNCION CUALQUIERA: DEF FN 


Además de todas las funciones de librería, el BASIC ofrece la posibilidad 
de que utilicemos cualquier otra función, definiéndola previamente. Un ejem- 
plo de definición de una función es el siguiente: 


29 DEF FNY(X)=3*X1?24+7x*X+6 


La instrucción es DEF FN (definición de función) seguida del nombre de 
la función, Y en nuestro caso, y de la variable entre paréntesis (X). La función 
arriba definida es: 


y(x)=3x? + 7x+6 
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Otros ejemplos de definición de funciones son: 


20 DEF EFNZ1(T)=SIN(T)*3-T?2 
20 DEF FNPA(A)=7*A/LOG(A) 
29 DEF FNM(X)=A*X?2—A?2*X 


Los nombres de las funciones siguen las mismas reglas que los nombres de 
las variables, aunque algunos “micros” admiten una letra únicamente como 
nombre. 


La forma de utilizar las funciones definidas, para distintos valores de la 
variable, es (siguiendo con el primer ejemplo): 


SQ LET Y1=FNY(-2) 


Esta instrucción, en la que se incluye FN (función), su nombre (Y), y el 
valor del argumento (—2), calcula el valor de Y para ese argumento, que resulta 
ser 4, y asigna a Y 1 ese valor: Y 1 = 4, Cada vez que la máquina encuentre en la 
ejecución de un programa una función FN seguida del nombre, y del argumento 
entre paréntesis, busca la función definida con ese nombre (en cualquier sitio 
del programa en que se encuentre) y la calcula para el argumento señalado, uti- 
lizándose luego en una instrucción LET, como en el caso anterior, o PRINT o 
IF-THEN, etc. 


Veamos un ejemplo completo en el que hacemos uso de una función defi- 
nida por nosotros. Supongamos que necesitamos una tabla de valores de la fun- 
ción y=3x? + 7x + 6, para todos los valores enteros de x comprendidos entre 
—4 y 4. He aquí un programa: 


19 REM TABLA DE VALORES DE UNA FUNCION 
29 DEF FNY(X)=3*X12+7*X+6 

30 PRINT *“X”, *Y” 

4) FOR X=-4 TO 4 

SQ PRINT X, FNY(X) 

6f NEXT X 

79 END 
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Corriendo el programa obtenemos: 


pol 
uv 
= 
non 


| 


BhuUv o 


16 
32 
54 
82 


La instrucción DEF FN puede estar en cualquier lugar del programa, pero 
por cuestión de claridad suele ponerse al principio o al final, y si hay varias, se 
ponen juntas. Sin embargo hay aparatos que exigen que la definición de la fun- 
ción (DEF FN...) sea anterior a su utilización (FN...) y entonces es mejor defi- 
nir las funciones al principio del programa. 


Aunque el lenguaje BASIC permite definir funciones de varias variables, al- 
gunos microordenadores no las admiten. No serían lícitas instrucciones como: 


79 DEF FNT(X, Y, Z)>=X12+Y12+Z?2 


Sin embargo, es posible conseguir el mismo efecto de otra forma. Conside- 
ra la definición de función: 


20 DEF FNM(X)=A*X1?2+A172*X 

Es una función de una variable, X, que si la utilizamos para X=7 

249 LET K=FNM(7) 
proporcionará el valor 49A + 7A?. En esta expresión se toma para A el valor 
que tiene en el curso del programa en ese momento. Si al llegar a 24 A vale 2, 


se tiene K=49+2+7*4=126. En realidad hemos tratado a A como a una se- 
gunda variable. 
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6.8 FUNCIONES PARA TRABAJAR CON PALABRAS 


Hasta ahora hemos tratado muy poco de las variables alfanuméricas. La 
única “operación” que se ha definido para ellas es la suma (+) entendida como 
yuxtaposición, y losúnicos operadores los representados por los signos =y <> . 
¿Cómo hacer para ordenar alfabéticamente una lista de apellidos? Nos gusta- 
ría también saber entresacar las iniciales de los nombres completos de las per- 
sonas. Y, aumentando la dificultad, sería interesante conjugar verbos o corre- 
gir faltas de ortografía. El BASIC tiene bastantes funciones para trabajar con 
variables alfanuméricas o de cadena, y vamos a ver las más importantes. 


La función LEN(AS) cuenta el número de caracteres de una cadena 
(length=longitud). Por ejemplo el programa: 


10 LET AS=“BASIC” 
20 LET N=LEN(AS) 
30 PRINT N 

4) END 


cuenta en la línea 2Q) el número de letras de la palabra “BASIC” y lo asigna a N, 
que valdrá 5. Por tanto la línea 3 imprime el número 5. No hace falta que la 
palabra “BASIC” se asigne a la variable A$; se pueden contar sus letras directa- 
mente, poniéndola entre comillas, y se obtiene el mismo resultado: 


10 LET N=LEN (“BASIC”) 
20 PRINT N 
30 END 


Tres funciones muy parecidas entre sí son las siguientes: 


LEFTS (AS,N): extrae de la cadena A$, N caracteres empezando por la iz- 
quierda (LEFT=izquierda). 


RIGHTS (A$,N): extrae de la cadena A$ los últimos N caracteres, los de la 
derecha (RIGHT=derecha). 


MIDS(AS,P N): extrae de la cadena A$, N caracteres empezando por el ca- 
racter intermedio que ocupe la posición P(MIDDLE =me- 
dio). 
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Como ejemplo vamos a hacer un juego de palabras: dada una palabra, o va- 
riable alfanumérica cualquiera, el ordenador la escribirá en sentido inverso: 


1Q REM JUEGO DE PALABRAS 

20 INPUT “QUE PALABRA QUIERES INVERTIR”; AS 
3Q LET L=LEN(AS$) 

4 FOR I=1 TO L 

SQ PRINT MIDS(AS,L—-I+1,1); 

60 NEXT 1 

79 END 


Si al INPUT de la línea 2f contestas con la palabra “ROMA”, en la línea 
3Q, L vale 4, y mira lo que hace el bucle: de la palabra ROMA escribe el carac- 
ter de la posición L—-I+1=4 —1 + 1 =4, es decir, escribe la A. Tras el NEXT I, 
escribe otra vez un caracter, pero esta vez de la posición 4 — 2 + 1 =3, es decir, 
la M. En el paso siguiente tendremos 4 — 3 + 1 = 2, que corresponde a la O, 
para terminar con la R. Ha escrito la palabra AMOR. 


Otro ejemplo sencillo es entresacar las iniciales del nombre y apellidos de 
una persona: 


19 REM INICIALES 

20 PRINT “CUALES SON TU NOMBRE Y APELLIDOS” 

3 INPUT NS 

40 PRINT LEFTS(N$,1);%.”; (escribe la 1* inicial) 

54 LET A$=" >” 

60 FOR I=2 TO LEN(N$) 

70 IF MIDS(N$,1,1)<>AS THEN 90 

80 PRINT MIDS(N$,I+1,1);.”; (escribe las demás iniciales) 
9) NEXT I 

100 END 


El funcionamiento de este programa es sencillo de comprender. Aumen- 
tando la dificultad hagamos un programa para entresacar las palabras de una 
frase. Las palabras se caracterizan por estar comprendidas entre dos espacios 
en blanco, excepto. la primera y última palabras de la frase. Un programa po- 
dría ser: 
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1 REM PALABRAS DE UNA FRASE 

20 PRINT “QUE FRASE QUIERES DESGUAZAR” 
3 INPUT FS 

40 LET L=LEN(FS$) 

SY LET A$="“ ” 

60 LET R=1 (primera posición de la palabra a escribir) 
70% FOR I=1 TO L 

80 IF MIDS(F$,1,1)<> AS THEN 110 

9 PRINT MIDS(FS,R,I-R) 

100 LET R=I+1 (primera posición de la siguiente palabra a escribir) 
119 NEXT 1 

129 PRINT RIGHTS (FS,L-R +1) 

139 END 


donde la línea 120 es necesaria pues la última palabra no termina en un espa- 
cio en blanco, y el bucle no da orden de imprimirla: ha de escribirse con inde- 
pendencia. Te recordamos que una cadena puede tener hasta 255 caracteres. Si 
en el INPUT de la línea 30 tienes una limitación más restrictiva (por ejemplo, 
dos líneas, con un máximo de 80 caracteres) puedes alargar la frase mediante 
varios INPUT y suma de cadenas. 


Hay otras dos funciones que son inversas entre sí: VAL(AS) extrae de la 
variable A$ los primeros caracteres numéricos hasta llegar al primero no numé- 
rico. Por ejemplo, la línea: 


3Q LET P=VAL(“*127SEAT”,) 


asigna a P el valor numérico 127. VAL, abreviatura de value = valor, extrae, has- 
ta donde puede, un valor numérico de una cadena de caracteres. 


En cierto modo recíproca, la función STR$(N) convierte un número en 
una cadena, permitiendo aplicarle las funciones anteriores. Por ejemplo, las 
líneas: 


2Q LET N=85324 
30 LET AS=STRS(N) 


asignan a la variable N el número 85324, y a la variable A$ el valor “85324”, 
concebido como cadena, no como número. Por ejemplo a la variable A$ le po- 
demos aplicar el primer programa de este apartado, y la escribirá al revés: 
“42358”. 
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RECUERDA 


ABS valor absoluto LOG logaritmo neperiano 
PRINT TAB tabulador 
RND número aleatorio 
SGN signo 

SIN seno 

SQR raíz cuadrada 


TAN tangente 


ATN arco tangente 

COS coseno 

DEF FN definición de función 
EXP exponencial base e 

FN uso de la función 


INT parte entera 


LEN(A$) longitud: número de ca- 
racteres 

VAL(AS$) valor numérico 
STRS(N) convierte en alfanumérica 


LEFTS(A$,N) subcadena izquierda 
RIGHTS$(A$,N) subcadena derecha 
MIDS(AS,P,N) subcadena intermedia 


Ll 


EJERCICIOS 


6.1) Hacer un programa que pida un número entero, y que al dárselo escriba 
todos los números que lo dividan. 


6.2) Hacer un programa que pida un número y conteste si es primo o no (es 
parecido al anterior). 


6.3) Obtener todos los números primos menores que 342. 


6.4) Descomponer un número en sus factores primos. El procedimiento a se- 
guir es el mismo que cuando lo resuelves con papel y bolígrafo: se toma 
el número y se prueba a ver si 2 lo divide, incluso varias veces; luego el 3, 
etcétera. Y en cada caso afirmativo se anota el factor, y se divide el nú- 
mero por él antes de seguir. 
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6.5) El algoritmo de Euclides para hallar el M.C.D. de dos números (suponga- 
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mos 16 y 6) consiste en lo siguiente: se hace la división entera del mayor 


entre el menor: 
16 16 
4 


2 


pa 


Si el resto es 0,el M.C.D. es el divisor. Si no, el M.C.D. es el mismo que el 
del divisor y el resto, por lo que se hace la división entera: 


St. 
NN 


Como el resto no es cero se vuelve a hacer la división entera entre el divi- 
sor y el resto: 


412 
0 2 


Al ser la división exacta el M.C.D. es el divisor (2). Viendo el organigrama 
de la Fig. 6.2, haz el programa correspondiente. 


PRINCIPIO 


LEERA Y B 


DIVISION ENTERA 
DE A POR B 
HALLAR R 


IMPRIMIR 
M.C.DAI(AB)=B 


Fig. 6.2 


6.6) 


6.7) 


6.8) 


6.9) 


Completa el programa anterior de forma que calcule también el m.c.m., 
sabiendo que M.C.D. x m.c.m. = producto de los dos números dados. 


En el apartado 6.2 se ha visto con la función INT un ejemplo para trun- 
car decimales de forma que sólo salgan dos decimales, por ejemplo. De 
ordinario será más conveniente redondear que truncar. Si redondeamos 
el número A = 3,73875431 a dos cifras decimales, se obtiene B = 3,74, 
cuya aproximación es mayor que la del truncamiento 3,73. 


Para redondear a dos cifras decimales puedes usar la sentencia: 
LET B = INT(A*100+.5)/100 


Escribe un programa para redondear a dos cifras decimales cualquier nú- 
mero A. Luego mejora el programa para redondear un número A a n de- 
cimales. 


Haz un programa en el que el ordenador, después de pedirte un número 
natural menor que 100, te conteste la forma de pagar ese dinero con el 
menor número posible de monedas de 50, 25, 5 y 1 ptas. (al llegar a es- 
tudiar el “duro” y las pesetas sueltas, utiliza la función INT). 


"Sabiendo que la respuesta es única, hallar un número de cuatro cifras, de 


la forma aabb, que sea cuadrado perfecto. 


6.10) Un número, cuadrado perfecto, más 2 da un cubo perfecto. Hallar el 


número. 


6.11) Sabiendo que la respuesta es única, hallar un número de seis cifras capicúa 


y cuadrado perfecto. 


6.12) Hallar el menor múltiplo de 13 que dividido por 2, 3,..., 12 da de resto 1. 


6.13) Hallar tres números menores que 10 que, elevados al cuadrado y suma- 


dos, dan un cuadrado perfecto. 


6.14) Un tejado lleva 40 piezas de pizarra por m? o fracción. El rendimiento de 


un obrero es de 10 m2? por jornada de 8 horas. Cada pieza se coloca con 
dos clavos, que se venden en cajas de 400 clavos a 1.500 ptas. la caja. 
Sabiendo que cada pieza de pizarra cuesta 35 ptas. y que la mano de obra 
cuesta 3.000 ptas./día o fracción, hacer un programa que, tras pedir los 
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6.15) 


6.16) 


6.17) 


6.18) 


6.19) 
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metros cuadrados del tejado del cliente, conteste con el coste por los tres 
conceptos y el coste total. 


La población de una ciudad ha evolucionado de la siguiente forma: 
1935 1.238.400 1960 2.362.057 
1940 1.401.107 1965 2.716.366 
1945 1.580.880 1970 3.123.821 
1950 1.786.055 1975 — 3.592.394 
1955 2.053.963 1980. 4,237.525 


Queremos representar esta evolución mediante un diagrama de barras ho- 
rizontales. Para ello deberás utilizar el signo =. Tras escribir el año y un 
espacio en blanco, pondrás las barras de la longitud proporcional a la po- 
blación. Has de cuidar el problema de escalas: dispones de 34 casillas que 
has de aprovechar al máximo. Por ejemplo a 4.237.525, que es la cifra 
más alta, le puedes hacer corresponder las 34 casillas, o un número de es- 
pacios próximo a 34. 


Simular el lanzamiento de una moneda N veces. Al final interesa saber el 
número de lanzamientos y el número de caras y cruces. Durante los lan- 
zamientos puedes hacer que cada vez que salga “cara” aparezca en la pan- 
talla un carácter (0 por ejemplo) y por cada “cruz” un signo + (con pun- 
to y coma (;) en la instrucción PRINT correspondiente). 


Se lanza una moneda tres veces seguidas. El resultado será una terna for- 
mada por caras y cruces (0 y +). Realiza un programa que nos dé diez de 
estas ternas. 


Queremos simular el lanzamiento de una moneda trucada, de modo que 
la probabilidad de cara sea 0,75 y la de cruz 0,25. Haz un programa para 
N lanzamientos, como el ejercicio 16. 


Vamos a simular de nuevo el lanzamiento de una moneda, pero esta vez 
el programa se parará cuando se estabilicen las frecuencias relativas. Des- 
pués de cada lanzamiento se halla la frecuencia relativa de las caras. 
Cuando esa frecuencia difiera de la del lanzamiento anterior en menos de 
0,01 el programa parará, indicando el número de lanzamientos, el de 
caras y cruces, y las dos últimas frecuencias relativas de caras redondea- 
das a 4 decimales. Piensa las dificultades que pueden presentarse en las 
primeras tiradas. 


6.20) 


6.21) 


6.23) 


6.24) 


6.25) 


6.26) 


Hacer un programa en el que el ordenador lance monedas, y se pare cuan- 
do haya lanzado cuatro caras consecutivas. Dar entonces el número de 
lanzamientos, el de caras y su frecuencia relativa. 


Haz un programa que simule el lanzamiento de un dado N veces, y que al 
final saque en la pantalla las frecuencias relativas de 1, 2,..., 6 y la pun- 
tuación media. 

El programa puede servir para verificar la función RND: las seis frecuen- 
cias relativas deben tener valores próximos, más próximos cuanto mayor 
sea N. 


Repetir el lanzamiento de un dado, escribiendo cada 10 lanzamientos las 
frecuencias relativas de cada punto (1, 2, ..., 6). 


Haz que el programa se pare cuando en dos lanzamientos consecutivos 
todas las frecuencias relativas hayan variado menos de 0,02. 


Mediante la función RND la pantalla del ordenador va a proponer a un 
niño sumas y multiplicaciones. Cuando el niño contesta,el ordenador res- 
ponde si la solución es correcta o si ha fallado. El programa va contando 
el número de fallos y aciertos. 


Simula la extracción de los tres primeros premios de la lotería nacional 
(Números desde el 00000 al 59999). A un mismo número no le pueden 
tocar dos premios. 


Haz un programa de simulación de una ruleta: tiene 36 números a los 
que se puede apostar, y el O. Si sale el O, todas las apuestas son para la 
casa. Si aciertas el número, el premio es tu apuesta multiplicada por 36. 
Además los 36 números se clasifican en pares o impares, y pasa (19 ó ma- 
yor) o falta (18 ó menor). (También en rojo y negro, pero esto compli- 
caría el programa). Puedes jugar a pares o impares y a pasa o falta; si 
ganas en estos casos el premio es tu jugada multiplicada por dos. Empie- 
za el juego con P ptas. y ve haciendo apuestas. El ordenador debe decir 
cuánto dinero te queda, y no permitirte apostar más de lo que tienes. El 
juego se acaba si te quedas sin dinero. 


En vez del adulador cibernético vamos a hacer el Criticón Cibernético 
de Luxe. Mediante la función RND puede elegir entre una lista de críti- 
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6.27) 


6.28) 


6.29) 
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cas. Otra función RND elegirá el número de críticas que se harán (entre 
dos y cuatro por ejemplo). No importa que una crítica se repita. 


Flechazo al ordenador: la máquina te pregunta el nombre. A continua- 
ción lo imprime 15 veces, una en cada línea, situándolo aleatoriamente 
a la izquierda, derecha o centro de la pantalla, y añadiéndole signos de 
admiración (!) también en número aleatorio, comprendido entre 1 y $. 
(Es una combinación de RND y TAB, y si quieres que el nombre no se 
salga de una línea para escribirse en la siguinte, has de tener en cuenta su 
longitud: LEN). 


Cada vez que un submarino avista un barco enemigo sólo tiene tiempo de 
lanzar cuatro torpedos antes de ser localizado y perseguido. Cada torpe- 
do tiene 1/3 de probabilidades de hundir el barco. Si un torpedo hunde 
un barco en la pantalla aparecerá H, y no se lanzan más torpedos contra 
ese barco. Si no le da, aparecerá A y seguirá la serie de cuatro torpedos. 
Simular unos días de guerra en los que el submarino se encuentra diez 
barcos enemigos en total. Se sugiere que los resultados con cada barco 
aparezcan en una sóla línea de pantalla, en total 10 líneas. 


UNA APLICACION DE LA FUNCION RND: EL CALCULO ALEATO- 
RIO DET 


Consideremos el cuadrado de lado 1 y el cuadrante de círculo de la 
Fig. 6.3. Supongamos que lanzamos un dardo al azar sabiendo con segu- 
ridad que va a dar en el cuadrado, pero no necesariamente en el cua- 
drante de círculo. 


La probabilidad de que el dardo caiga en el cuadrante es la proporción 
que hay entre las áreas de las dos figuras. Más concretamente: 


_ Area del cuadrante _ 7/4 _ 7 
Area del cuadrado 1 4 


Supongamos ahora que lanzamos N dardos sobre el cuadrado y que M 
de ellos dan en el cuadrante. La frecuencia relativa del suceso “dar en el 
cuadrante” es: 


6.30) 


Fig.6.3 


Si el número de lanzamientos es muy grande, la frecuencia relativa se 
aproximará a la probabilidad P, por tanto: 


f=>=>5=P (para N “grande”) 
De aquí podemos despejar T : 


4M 
To N (para N “grande””) 
Esto es: un valor aproximado de T es igual al cuádruplo del número de 
dardos que han caído en el cuadrante de círculo, dividido por el número 
de lanzamientos efectuados. 


Para hallar una aproximación no es necesario lanzar los dardos, basta si- 
mular los lanzamientos. Para ello obtenemos dos números aleatorios x e 
y comprendidos entre O y 1 (para que el dardo caiga en el cuadrado con 
seguridad), y suponemos que el dardo ha ido a parar al punto (x, y). El 
punto está dentro del cuadrante si: 


x? + y?<1 


Con estas ideas, construye un organigrama y el correspondiente progra- 
ma, para hallar un valor aproximado de rr lanzando mil dardos. 


Representa en una tabla los valores de sen x, cos X, y tg x. Vamos a ha- 
cer una presentación elegante. A la izquierda aparecerá el valor de x, des- 
de 1% hasta 45%, variando de 1 en 1. Redondearemos el valor de sen x, 
cos X y tg x a cinco decimales. Para no “perder” los resultados por la 
parte superior de la pantalla, debido a la rapidez con que se obtienen, la 
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ejecución se parará mediante una instrucción STOP, cada 15. Pon tam- 
bién la cabecera correspondiente. 


6.31) Un paisano tiene un prado cuadrado de lado L, y tiene una vaca que 
pasta en él. Ata a la vaca con una cuerda al centro de uno de los lados. 
Quiere saber la longitud que ha de dar a la cuerda, para que la vaca al- 
cance exactamente la mitad de la superficie del prado, y así no se indi- 
geste. Introduce L mediante un INPUT. Haz que R vaya creciendo des- 
de R = L/2 hasta que la superficie de pasto sea L?/2, con incrementos 
de R iguales a L/1000. La fórmula de la superficie de pasto es: 


Fig. 6.4 
S =3.14159*R?2/2+L/2*(RY2—L12/4)1.5—-ATN((R12—L?2/4)1.5+ 
*2/L)*R92 
6.32) Problema semejante al anterior. Dadas dos circunferencias de igual ra- 


dio R, hallar a qué distancia D deben estar sus centros para que las tres 
superficies de la figura 6.5 sean iguales. La fórmula de S, es: 


A 
NW 


Fig. 6.5 
S2 = 2x(ATN((R?2—D?2/4)1.5*2/D)*R?2—D/2*(R12—D12/4)1.5) 


6.33) Hacer el siguiente programa que será útil para la navegación marítima y 
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6.34) 


6.35) 


aérea: dados los datos de longitud y latitud de dos puntos de la super- 
ficie terrestre, hallar la distancia entre ellos, suponiendo que la Tierra 
es esférica. Primero habrás de distinguir si los dos puntos están en el mis- 
mo hemisferio o en distinto, para restar sus latitudes o sumarlas respecti- 
vamente, y lo mismo para la longitud. Después habrás de aplicar la si- 
guiente fórmula: 


X =cos(A1l)*cos(A2) 
D= -6367.5 *(arctg (X/ V1-X? ) + 1/2) 
Donde Al y A2 son, en radianes, las diferencias de longitud y latitud 


de los dos puntos. 


Ejecuta en tu microordenador el siguiente programa: 


1Q REM REPRESENTACION DE LA FUNCION SENO 
29 FOR I=Q0 TO 20 STEP .3 

30 PRINT TAB (19+19*SIN(1) );%x*” 

4 NEXT I 

SY END 


Representa en la pantalla simultáneamente, utilizando la función TAB, 
las tablas de multiplicar de los números 2, 3, 5, 7 y 9 hasta el factor 15. 


6.36) Hacer un ejercicio semejante al 6.3) que represente en la pantalla simul- 


6.37) 


táneamente los 100 primeros números primos. 


Utilizando la función TAB, escribe una tabla que represente: 

a) En su extremo izquierdo los nombres abreviados de los equipos de 
primera división, con no más de 10 caracteres para cada equipo (pue- 
des hacerlo, por sencillez, con un número más reducido de equipos: 
diez por ejemplo). 

b) Para cada equipo una barra horizontal que represente el número de 
partidos ganados en el Campeonato Nacional de Liga. (Parecido al 
ejercicio 6.15), pero con la función TAB). 


6.38) Una empresa de transporte de viajeros por carretera sirve la línea Madrid- 


Toledo, con paradas intermedias en Getafe, Parla, Torrejón, Illescas, Ca- 
bañas, Yuncos y Olías. Desde las 8 h hasta las 21,30 h salen autobuses 
en cada sentido, desde los extremos de la línea, cada hora y media. El 
precio por km es de 3,50 ptas., y además los viajeros que utilicen las es- 
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taciones de Madrid o Toledo deberán de pagar un extra de 5 ptas. Supon- 
dremos que no hay limitación de plazas. La empresa necesita un progra- 
ma parecido a los de la RENFE, que tras preguntar día, hora, origen y 
final del trayecto y distancia en kms , rellene el siguiente billete: 


TRAYECTO 


KMS 


PRECIO POR KM 


Fig. 6.6 


6.39) Hacer el programa anterior pero sin necesidad de que se introduzcan los 
kilómetros desde el teclado: que, según el trayecto deseado, el programa 
incluya la distancia entre esas dos poblaciones. 


6.40) Representa la función y = x? en el intervalo (—7, 7) en un programa se- 
mejante al 6.34). 


6.41) Escribir en la pantalla, como si fueran los vértices de un cuadrado las si- 
guientes letras: 


A B 


D C 


Hacer un programa que, mediante un INPUT, “gire” las letras en el senti- 
do de las agujas del reloj si pulsamos R, y en sentido contrario si pulsa- 
mos C. 


6.42) Hacer un programa que, dados dos puntos en la pantalla por sus “coorde- 
nadas” (fila y columna), trace una línea discontinua de asteriscos entre 


ambos. 


6.43) Hacer un programa que dé una tabla de valores de cualquier función en- 
tre dos números y para un incremento dado. Te sugerimos que las 
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instrucciones para el usuario vayan en las primeras líneas de la siguiente 


forma: 


19 PRINT 
29 PRINT 
30 PRINT 
40 PRINT 
5 PRINT 
6 PRINT 
70 PRINT 
8f STOP 


“TABLA DE VALORES DE UNA FUNCION” 


dd SINO HAS DEFINIDO AUN LA FUNCION” 
“HAZLO AHORA ESCRIBIENDO PREVIAMENTE” 
“109 DEF FNY(X)=...” 

iá SIYA LA HAS DEFINIDO TECLEA RUN 100” 


6.44) Haz un programa para calcular la integral definida de una función en un 
intervalo, semejante al ejercicio 5.14) pero utilizando la definición de 
una función. Puedes utilizar un comienzo semejante al del ejercicio an- 


terior. 


6.45) RAICES REALES DE UNA ECUACION f(x)=0 POR BIPARTICION 


Si una función continua en un intervalo toma valores de distinto signo en 
sus extremos, es que la función se anula en algún punto intermedio. 
(Teorema de Bolzano). Vamos a hallar por bipartición ese punto (al me- 
nos uno) en que se anula. 


| 
| 
| 
| 


(X1+X2)/2 
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En la figura 6.7 se representa el caso de que f(X1) es negativo y f(X2) es 
positivo. (El caso contrario es análogo). Tomamos el punto medio del 
intervalo [X1, X2], y vemos el valor de la función. Supongamos que es 
positivo (como en la figura). Entonces la raíz ha de estar entre X1 y 
(X1 + X2)/2; llamamos a este punto medio X2 y prescindimos del estu- 
dio de la función a su derecha. 


Se repite el mismo estudio en el nuevo intervalo más pequeño, se vuelve 
a tomar el punto medio, y vemos el valor de la función. Supongamos que 
es negativo (como en la figura). Entonces la raíz ha de estar entre (X1 + 
+ X2)/2 y X2; llamamos a este punto medio X 1 y prescindimos del estu- 
dio de la función a su izquierda. 


Tal vez en alguna de estas biparticiones podemos dar exactamente con la 
raíz: f [(X1 + X2)/2]=0; lo que sí es seguro es que cada vez nos acerca- 
mos más a ella. Al ordenador no le cuesta nada operar y repetir todas las 
veces que haga falta este proceso, hasta tener acotada la raíz en un inter- 
valo [X1, X2] muy pequeño. Si tomamos entonces su punto medio 
como raíz, cometemos un error menor que (X1-—X2)/2. 


Apoyándote en estas ideas, y en el siguiente organigrama, haz un progra- 


ma para hallar raíces. La función puede introducirse mediante la instruc- 
ción DEF EN..., y el intervalo y error mediante INPUT. 


Y E=ERROR 


NO 


IMPRIMIR 
SOLUCION 
x0 


IMPRIMIR 
SOLUCION 
xQ 


¿SG N(F(XP))=S G N(HXI))? 


Fig. 6.8 


6.46) 


6.47) 


6.48) 


6.49) 


6.50) 


VALOR MAXIMO DE UNA FUNCION 


Diseña el organigrama y el programa correspondiente para hallar el valor 
máximo de una función cualquiera, f, en un intervalo [a,b]. Hay que uti- 
lizar un algoritmo semejante al del ejercicio anterior: divide cada vez el 
intervalo, no en dos partes, sino en diez, cuyas abscisas serán Xp, X1], X>, 
..-, X1(; toma el valor X¡ que haga mayor la función; como nuevo inter- 
valo a estudiar tomarás [X¡_¡, X¡+1]] que volverás a dividir en diez, y 
así sucesivamente, hasta obtener una aproximación satisfactoria. Piensa 
que en algunos casos el método puede fallar. 


Haz un programa que, mediante un INPUT, pida una frase y vuelva a es- 
cribirla, pero intercalando un guión entre cada dos caracteres. (Observa- 
ción: el espacio en blanco también es un carácter a separar entre guiones 
de las letras contiguas). 


Haz un programa que, tras pedir una “frase sin signos de puntuación”, 
cuente el número de vocales, espacios en blanco y consonantes de la fra- 
se. (El número de consonantes, si no hay signos de puntuación, es la lon- 
gitud de la cadena menosel número de vocales y el de espacios en blanco). 


Necesitamos un programa que pida, mediante un INPUT, una frase. Lue- 
go ha de preguntar qué carácter deseas buscar; examinará la cadena y 
cada vez que encuentre el carácter señalará en qué posición está. Al final 
sacará el número total de veces que lo ha encontrado. 


Queremos contar cuántas veces aparece una palabra en una frase. Si, por 
ejemplo, buscamos la palabra “sol”, es obvio que las palabras “sola”, o: 
“solar”, no nos sirven: la palabra “sol” debe tener a derecha e izquierda 
un espacio en blanco, o un signo de puntuación. Como ejemplo concreto 
cuenta las veces que aparece ““vuesa merced” en un capítulo del Quijote. 


6.51) Haz un programa que suprima todos los espacios en blanco de una cadena. 


6.52) 


6.53) 


Haz un programa en el que el ordenador te pida un número de más de 
cinco cifras y posteriormente te dé las dos cifras de la izquierda, las 
cuatro de más a la derecha, y la del centro. (Si el número de cifras es par, 
en el centro no hay una cifra, sino dos. Toma la que prefieras de ellas). 


Queremos un programa que pida al teclado un número positivo de seis o 
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más cifras. Vamos a ir haciendo una serie de operaciones y queremos que 
en la pantalla aparezcan los sucesivos resultados parciales, con los textos 
explicativos correspondientes: el número se multiplicará por dos; nos 
quedaremos con las cuatro cifras de la izquierda; nos las escribirá de nue- 
vo pero separadas por guiones; y por fin el resultado de sumar esas cuatro 
cifras. 


6.54) Haz un programa que te pida el infinitivo de un verbo de la primera con- 


jugación, y a continuación escriba su pretérito imperfecto y su presente 
de subjuntivo. 


6.55) OTROS EJERCICIOS CON CADENAS DE CARACTERES 
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Vamos a utilizar otras dos funciones ya más complejas que son: ASC(A$) 
y CHRS(N). Cada carácter del BASIC tiene un código numérico. El códi- 
go ASCII de los caracteres que más te interesan es: 


CARACTER ABCDEFGHIJKLMNOPOQO 


CODIGO 65 66 67 68 69 70 71 72 7374 75 76 77 78 798081 
CARACTER RS TUVVWXYZ0Q123456 7 
CODIGO 82 83 84 85 86 87 88 8990 48495051 52535455 
CARACTER. 3% “BL +. -<]1% "9220 
CODIGO 56 57 34 3640 41 42 43 44 45 46475960 61 62 63 
CARACTER %f ESPACIO RETURN DELETE 

CODIGO 94 32 13 20 


La función ASC(AS$) asigna a un carácter su código, y la función CHRS$(N) 
asigna a un código N el carácter correspondiente. Mira el siguiente pro- 
grama y el resultado de su ejecución: 


10 A=6 

20 B=ASC(“6”) (B vale 54) 
3 CS$=CHR$(12*A) (CS vale “H”) 
4) C=ASCICS$) (C vale 72) 
50 D$=CHRS(B+20) (DS vale “J”) 
6 PRINT B;¡CS;C;DS$ 

79 END 

RUN 

54 H 72 J 


6.56) 


Un ejemplo de programa puede ser la escritura en clave. Imagínate que 
un espía dispone de un ordenador para su trabajo. Si tiene que transmitir 
un mensaje, puede traducir las letras a sus códigos; después opera con los 
códigos (por ejemplo les suma a todos el número 4) y los descodifica de 
nuevo, pasando los nuevos códigos a sus correspondientes caracteres. Re- 
sulta algo completamente desfigurado, que sólo sabrá entender quien 
conozca la clave. 


1Q REM ESCRITURA EN CLAVE 
20 PRINT “MENSAJE” 


3 INPUT AS 

4 FOR I=I TO LEN(AS) 

SY BS=MIDS(AS,I,1) (se toma un carácter) 

60 B=ASC(BS)+4 (se pasa a código y se suma 4) 
79 CS=CHR$(B) (se pasa al nuevo carácter) 

80) DS=D$+C$ (se acumula en D$ el mensaje) 
9 NEXT 1 

199 PRINT DS (se escribe el mensaje cifrado) 
119 END 


Si al INPUT de la línea 30, en la ejecución del programa, contestas 
“OPERACION RINOCERONTE”, este programa escribe: 


“STIVEGMSRSVMRSGIVSRXI” 


que sólo sabrá descifrar quien conozca la “clave”: restar 4 a los có- 
digos de las letras. 


Estas funciones se utilizan para ordenar alfabéticamente listas de pa- 
labras, pero este tipo de ejercicios requiere utilizar variables de índice, 
que es el objeto del próximo capítulo. Los ejercicios los haremos des- 
pués. 


Dos trenes T1 y T2 tienen parte del recorrido común (L3) y parte distin- 
to (Ll y L2), y circulan en un circuito cerrado en la misma dirección. 
Van con velocidad constante V1 y V2, y tienen una estación en la mitad 
de su trayecto común y otra en la mitad de su trayecto particular (El y 
E2). Salen a las 8 de la mañana y se pasan el día circulando con paradas 
de 1 minuto en las estaciones. Como es natural no se pueden adelantar 
en el trayecto común, aunque sí pueden coincidir en E3. Haz un pro- 
grama en el que salga el horario en el que van pasando por las agujas A 
y B. En cada vuelta el primero que pasa por A ha de ser el mismo que el 
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primero que pasa por B; si no, hay descarrilamiento. Cuando haya des- 
carrilamiento saca un mensaje en la pantalla señalando la hora del cho- 
que, y termina el programa. (Es difícil. Haz el organigrama). 


A 


Fig. 6.9 


7 
LISTAS Y TABLAS 


7.1 VARIABLES CON INDICE 


Hasta aquí hemos visto un tipo de variables, tales como A, Al, A2, etc. 
El lenguaje BASIC permite definir otro tipo de variables numéricas: 


A(1), AQ), A(3), A(4), A(5) 


Conviene imaginarse las variables con índice como cajas contiguas que guardan 
números. Así por ejemplo: 


am [1] 
A(2) 
A a 
ac) | 16 | 


El conjunto ordenado de estas variables se llama /ista. En el ejemplo ante- 
rior tenemos una lista de cinco números. 


Existen también variables de cadena con índice donde se pueden guardar, 
por ejemplo, los nombres de una lista: 


AS(1) JOSE PEREZ FERNANDEZ 
AS$(2) LUIS GARCIA GARCIA 
AS$(3) ANA GOMEZ RAMIREZ 
As6s 
AS(S) LORENZO RUIZ GARCIA 


¡EA 


Las variables con índice hacen aumentar notablemente el número de varia- 
bles que podemos manejar en BASIC. Sin embargo, ésta no es ni la única, ni la 
más importante ventaja de las variables con índice. Lo más interesante es que 
el índice puede ser variable. Así por ejemplo, la variable A(N) será A(1) si N es 
l, será A(2) si N es 2, etc. La posibilidad de que el índice varíe hace realmente 
útiles a estas variables. Veámoslo en algunos ejemplos: 


Supón que quieres definir la lista numérica anterior. El siguiente progra- 
ma podría servir para ello: 


19 REM DEFINICION DE UNA LISTA 
29 FOR N=1 TO 5 

30 LET A(N)=N*N 

40 NEXT N 

5Y END 
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Si el valor de la variable L(N) no guardara relación con el índice N, como 
ocurre con la lista: 


sas Jos as | 78 Jo 


L(1) L() L(3) L(4) L(5) L(6) LC?) 


podríamos definir la lista LON) mediante INPUT dentro de un ciclo FOR-NEXT: 


14 REM DEFINICION DE UNA LISTA ARBITRARIA 
24 FOR N=1 TO 7 

30 INPUT L(N) 

40 NEXT N 

5Y END 


Corriendo el programa introduciremos sucesivamente los valores de la 
lista: 


22 


El índice de una variable puede ser una fórmula. Por ejemplo, A(2xI+ 3). 
Si el valor de la fórmula no es un entero positivo, el ordenador toma como ín- 
dice la parte entera de la fórmula. 


Algunos ordenadores admiten como índice el (); es decir, tienen variables 
tales como A(Q), L(0), etc. 


Cuando definimos una variable de índice A(N), el ordenador reserva auto- 
máticamente posiciones de memoria para las variables A(1), A(2),... hasta AQ). 
Si nuestra lista tiene más de 10 elementos, por ejemplo 100, entonces hay que 
advertir al ordenador que reserve sitio para 100 variables. Esta reserva de plaza 
se hace con la instrucción DIM A(100), precedida de un número de línea. DIM, 
es una abreviatura de DIMENSION. El número encerrado entre paréntesis es el 
índice más alto que pensamos utilizar en el programa. 
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Supongamos que queremos simular cien lanzamientos de un dado, guardar 
los resultados en una lista, D(1), DG), ..., (DION) y por último imprimirlos: 


19 REM CIEN TIRADAS DE UN DADO 
20 DIM D(100) 

30 FOR J=1 TO 100 

40 LET D(J)= INT(6*RND(J))+ 1 

5) NEXT J 

60 FOR N=1 TO 100 

79 PRINT D(N); 

80 NEXT N 

90 END 


Dado que las variables con índice ocupan mucha memoria, únicamente las 
usaremos cuando realmente necesitemos guardar los resultados. Si en el ejemplo 
anterior lo único que se pretendía era la impresión en pantalla de los resultados, 
no necesitábamos guardar cada resultado en una variable con índice, sino, senci- 
llamente, imprimirlos a medida que los íbamos obteniendo. 


7.2 FABRICACION DE BOTELLAS 


Una primera aplicación de las variables con índice puede ser la resolución 
de un problema clásico: en la pasta de vidrio para la fabricación de cien botellas 
hay cincuenta partículas de impureza que se distribuyen al azar durante el pro- 
ceso de fabricación. Si una botella resulta con una o más partículas de impure- 
za, es considerada defectuosa. ¿Como cuántas botellas resultaron aceptables 
en esta fabricación? 


Vamos a resolver el problema simulando el proceso de fabricación. Para 
ello consideramos una cuadrícula de 10 x 10, como la de la Figura 7.1, y nu- 
meramos las casillas del 1 al 100. Cada casilla representa una botella. 


ELLA rie Fig. 7.1 
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Ahora obtenemos un número aleatorio entre 1 y 100. Supongamos que 
sale el 33, Esto quiere decir que a la botella número 33 le ha tocado una par- 
tícula de impureza. En la casilla correspondiente nosotros marcaremos un pun- 
to. Repitiendo la operación otras 49 veces, tendremos 50 puntitos repartidos 
entre las casillas. El número de casillas libres será el número de botellas buenas. 


Todo esto se puede realizar en el ordenador, estableciendo las variables de 
índice B(1), B(2), ..., B(100) y sumando una unidad a B(N) cada vez que apare- 
ce el número aleatorio N. Después de las 50 extracciones de números aleatorios, 
contamos cuántas variables B(I) tienen valor cero; así obtenemos el número de 
botellas en buen estado. 


10. REM FABRICACION DE BOTELLAS 

20 DIM B(100) 

3f FOR I=1 TO 50 

40 LET N=INT(1P0*RND(D ) + 1 

SY LET B(N)= B(N)+1 

60 NEXT 1 

70 REM RECUENTO DE BOTELLAS BUENAS 
80 FOR J=1 TO 100 

9) IF B(J)=f9 THEN LET C=C+1 

100 NEXT J 

1109 PRINT “NUMERO DE BOTELLAS BUENAS = ”;C 
120 END 


Corriendo el programa hemos obtenido 61 botellas buenas. 


7.3 ELMAYOR DE LOS NUMEROS DE UNA LISTA 


Un problema que se te presentará con alguna frecuencia será el de encon- 
trar el mayor de los números de una lista y el lugar que ocupa en ella. Por ejem- 
plo, en la lista: 


LK) L(2) L(3)  L(4) L(5) L(6) LC7) L(8) 


el número mayor es el 23 y ocupa el lugar 7. 
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PRINCIPIO 


GENERAR LA LISTA DE 
MIL NUMEROS L(J) 


M=L(1) 
IM=1 


DESDE J =2 HASTA 1000 


IMPRIMIR 
M e IM 


Fig. 7.2 


Nosotros resolvemos inmediatamente el problema: un vistazo a la lista y 
descubrimos que el 23 es el mayor de los números y que su lugar es el 7. Pero 
debemos ser conscientes de todas las pequeñas operaciones que hemos realiza- 
do para llegar a esta conclusión, de lo contrario nunca se lo podremos comuni- 
car al ordenador. El pequeño tamaño de la lista hace que no reparemos en el 
proceso mental de búsqueda del valor máximo. Será bueno, entonces, que ima- 
ginemos una lista de mil números, por ejemplo. 


Ahora tendremos que recorrer la lista desde el principio hasta el fin. Nece- 
sitaremos una variable M, donde vamos a guardar el mayor “provisional”, y otra 
variable IM, en la que guardaremos el lugar que ocupa dicho valor máximo 
“provisional”. Inicialmente hacemos M=L(1) e IM=1, esto quiere decir que en 
un principio tomamos como “número mayor” el primero de la lista. El valor 
de M lo comparamos con L(2); si L(2) es mayor que M, hacemos M=L(2) e 
IM=2, en caso contrario dejamos las variables como están. Luego hacemos la 
comparación de M con L(3), y así sucesivamente, hasta llegar a la compara- 
ción con L(1000). Al final, en M está el mayor de los números y en IM el lugar 
que ocupa dicho valor máximo. Podría ocurrir que el valor máximo se encon- 
trara en varios lugares de la lista; en este caso en IM se recoge sólo el primero 
de los lugares con valor máximo. En el organigrama de la izquierda (Fig.7.2)al que 
incorporamos como paso previo la generación de la lista, se expresan estas ideas. 


He aquí un programa en el que previamente se genera una lista de mil nú- 
meros aleatorios comprendidos entre 1 y 10000. 


14 REM VALOR MAXIMO DE UNA LISTA DE MIL NUMEROS 
24 REM GENERACION DE LA LISTA 

199 DIM L(1P00) 

119 FOR J=1 TO 1000 

129 LET L(J)= INT(10000*RND(J) ) + 1 
130 NEXT J 

200 REM BUSQUEDA DEL MAXIMO 

210 LET M=L(1) 

220 LET IM=1 

239 FOR J=2 TO 1000 

240 IF L(J)<=M THEN 270 

250 LET M=L()) 

260 LET IM=J 

270 NEXT J 

280 PRINT “EL MAYOR NUMERO ES”;M 
299 PRINT “QUE OCUPA EL LUGAR”;IM 
300 END 
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7.4 ORDENACION DE LISTAS 


Un problema clásico es ordenar de menor a mayor los números de una lis- 
ta de N elementos: L(1), L(2), L(3), ..., LON). 

Con objeto de economizar memoria, la ordenación se hace in situ, es decir, 
sobre la misma lista, cambiando los números de unos lugares a otros. Los méto- 
dos de ordenación pueden clasificarse en tres categorías: 


1. Ordenación por intercambio 
2. Ordenación por inserción 
3. Ordenación por selección 


A continuación vamos a exponer estos métodos. Te aconsejamos vivamen- 
te que cortes una hoja de papel en ocho trozos y escribas un número en cada 
uno. Colocando los papeles en un orden arbitrario, trata de ponerlos en orden 
creciente y estudia las comparaciones y movimientos que hay que hacer hasta 
llegar a la lista ordenada. 


7.4.1 ORDENACION POR INTERCAMBIO 


Se trata de comparar, recorriendo la lista L(1), L(2), ..., L(N) desde el 
principio, elementos contiguos, intercambiándolos si no están en orden. La pri- 
mera vez se compara L(1) con L(2), y se pone en L(2) el mayor de ambos. A 
continuación se compara L(2) con L(3), haciendo que L(3) valga el mayor de 
los dos, y así hasta L(N). Al terminar de recorrer la lista, tendremos el mayor 
elemento colocado en último lugar, es decir, bien colocado. Por tanto, en la se- 
gunda vuelta la comparación ha de hacerse hasta el penúltimo elemento. Hay 
que recorrer la lista N-1 veces, pues cuando tengamos colocados el último, el 
penúltimo, ..., el segundo; el que queda es el primero. 


10 REM ORDENACION POR INTERCAMBIO 
119 FOR I=1 TO N-—1] 

129 FOR J=1 TO N-—I 

130 IF LJ)<=LJ+1) THEN 170 

149 LET X= L(J) 

15 LEY LJ)=L(J+1) 

160 LEP E W+I=X 

179 NEXT J 

189 NEXT I 

199 END 
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Observación: Si deseas ensayar este programa en el ordenador, deberás 
previamente, definir la lista L(J) y asignar el valor que corresponda a la variable 
N. Después deberás dar instrucciones para que se imprima la lista en el nuevo 
orden. Así podrás comprobar que los números quedan ordenados de menor a 


mayor. 


7.4.2  ORDENACION POR INSERCION 


Este método lo usan generalmente los jugadores de cartas para colocarlas 


y los profesores para ordenar los ejercicios de los alumnos alfabéticamente. 


Se recorre la lista L(1), L(2), ..., L(N) de izquierda a derecha y cada ele- 
mento se coloca en su sitio en la parte izquierda de la lista previamente orde- 
nada. Se toman los dos primeros elementos y se ordenan si no lo estaban. Des- 
pués se toma L(3) y se compara con los anteriores, poniéndolo en primero, 


segundo o tercer lugar, según le corresponda. Y así se sigue hasta L(N). 


290 
210 
229 


Hacemos la misma observación que para el método anterior. 


REM ORDENACION POR INSERCION 
FOR l=2. TO MN 

FOR J=1 TO 1-1 

IF LO) <=L(I) THEN 295 
LET X=LD 

FOR K=I TO J+1 STEP — 1 
LET L(K)= L(K-1) 

NEXT K 

LET L(J)=X 

GO TO 297 

NEXT J 

NEXT I 

END 
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7.4.3 ORDENACION POR SELECCION DEL MINIMO 


Es el método que utilizamos cuando queremos reescribir una lista de nú- 
meros en orden creciente: se selecciona el más pequeño de la lista y se coloca 
en primer lugar, de la lista restante se selecciona el más pequeño y se coloca en 
segundo lugar, y así sucesivamente. Se realizan estas operaciones N—1 veces, 
puesto que cuando tengamos ordenados todos excepto uno, éste es el último. 


300 REM ORDENACION POR SELECCION 
310 FOR I=1 TO N-1 

320: LET MIN=L(1) 

330 FOR J=1 TO N 

340 IF MIN<=L(J) THEN 370 
359 LET MIN=L(J) 

360 LET K=J 

379 NEXT J 

38) LET L(K)=L() 

399 LET L(I)=MIN 

395 LET K=Q 

397 NEXT 1 

399 END 


Hay que hacer la misma observación que en los dos métodos anteriores. 


7.4.4 ORDENACION POR SELECCION DEL MINIMO Y DEL MAXIMO 


Es una transformación del método. anterior (selección del mínimo). Se re- 
corre la lista para seleccionar el mínimo y el máximo, que se colocan en primer 
y último lugar respectivamente. En la parte restante de la lista se vuelven a se- 
leccionar el mínimo y el máximo, para colocarlos en segundo y penúltimo lu- 
gar, y así sucesivamente. 


400 REM ORDENACION POR SELECCION DEL MINIMO Y DEL 
MAXIMO 

405 FOR I=1 TO INT(N/2) 

410 LET MI=L(I) 

415 LET MA=L(I) 

42Q FOR J=I TO N-I+1 

425 IF. MI<L(J) THEN 440 

43Q LET MI=L(J) 
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435 LET Kl=J 

440 IF MA > L(J) THEN 455 
445 LET MA= L(J) 

45Q LET K2=J 

455 NEXT J 

460 LET L(K1)= LO 

465 LET L(I)=MI 

470 IF K2=T THEN. K2=K1 
475 LET L(K2)= L(N-1+ 1) 

48Y LET L(N-I+1)=MA 

485 NEXT 1 

490 END 


En este programa hay que hacer la misma observación que en los anteriores. - 


7.5 VARIABLES CON INDICE DOBLE 


Hasta aquí hemos utilizado variables con un sólo índice. Usaremos ahora 
variables con dos índices, de la forma: 


TQ,4) 


Las variables con índice doble se utilizan para representar tablas de nú- 
meros: 


T(1,1) T(1,2) T(1,3) T(1,4) 
T(2,1) T(2, 4) T(2,3) T(2,4) 
TG,1) T(3,2) T(G,3) TGB,4) 


Esta es una tabla de tres filas y cuatro columnas. Los índices de estas 
variables también pueden variar. Así, T(1,J) es la variable T(2,4) cuando l es 2 
y Jes4. 


Cuando en un programa se establece una variable T(1,J) con índice doble, 
el ordenador automáticamente reserva lugar de memoria para todas las varia- 
bles que se obtienen variando los índices I y J hasta un valor máximo de 10. Si 
alguno de los dos índices va a superar el valor de 10, entonces debes hacer una 
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reserva con la instrucción DIM. Así, por ejemplo, DIM T(1 2,14) reserva las va- 
riables T(1,J) para valores |< 12 y J < 14. Podremos disponer, entonces, de un 
una tabla de 12 filas y 14 columnas. Si tu ordenador admite el índice f, enton- 
ces dispones de una fila y una columna más. 


También puede interesarte utilizar la instrucción DIM para ahorrar memo- 
ria. Si vas a manejar una tabla de 3 x 4 y escribes DIM T(3,4), reservas espacio 
sólo para doce variables y no para cien. 


Existen también variables de cadena con índice doble, como, por ejemplo 
TSJ). 


Con objeto de mostrar el manejo de las variables con dos índices vamos a 
dar un programa muy simple: se trata de asignar, mediante INPUT, valores a la 
variable A(I,J) de 12 filas y 3 columnas; y, posteriormente, imprimir la tabla en 
la pantalla del ordenador. 


19 REM IMPRESION DE UNA TABLA DE NUMEROS 
29 DIM' A(12,3) 
30 FOR T=1 TO. 12 


40 FOR J=1 TO3 
sp INPUT A(1,)) 
60 NEXT J 

79 NEXT 1 

89 FOR I=1 TO 12 

Tí) FOR J=1 TO 3 
100 PRINT A(L)), 
110 NEXT J 

120 PRINT 

139 NEXT 1 

149 END 


Observa la coma (,) final de la línea 1Pf): es necesaria para que las impre- 
siones de los tres elementos de cada línea de la tabla se efectúen en la misma 
línea de pantalla y separados. 


La instrucción PRINT de la línea 120 es necesaria para que la impresión 
del primer elemento de cada línea de la tabla se haga al comienzo de una línea 
de pantalla. Si no tuviéramos esta instrucción PRINT, el primer elemento de 
la segunda fila de la tabla se imprimiría en la cuarta zona de la primera línea de 
pantalla, y así sucesivamente. 
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RECUERDA 


Variables con un índice: lista A(3) 


El índice puede ser variable e in- A(D 


cluso una expresión A(3x* 1-5) 


Dimensionar la variable si tiene 


más de 10 elementos DIM A(5Q) 


Ordenación de listas 


Variables con dos índices: tabla 13,4), TAJ), TO+3, J*2), 


DIM T(12,14) 


Variables de cadena con índice AS(3), ASCII), DIM AS(35) 


7.2) 


7.3) 


7.4) 


7.5) 


EJERCICIOS 


Haz un programa que sume los elementos de una lista de números. Pre- 
viamente deberás generar la lista. 


Simula el lanzamiento de un dado mil veces; cuenta las frecuencias de 
cada número utilizando una variable de índice e imprime las frecuencias 
obtenidas. Es parecido al ejercicio 6.21), y comprobarás la ventaja de 
programarlo con variables de índice. 


Haz un programa para hallar el menor de los números de una lista y el lu- 
gar que ocupa. 


Haz un programa para hallar el menor y el mayor de los números de una 
lista. 


Dada una tabla de 13 x 13 números, tomar cada fila y sumar todos sus 
elementos; y lo mismo con las columnas. Hacer al final la suma de los 
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7.6) 


7.7) 


7.8) 


793) 


7.10) 


7.11) 


7.12) 
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totales de las filas y la de los totales de las columnas y comprobar que 
ambas coinciden. 


Haz un programa que calcule la media aritmética y la desviación típica 
de una lista de números. 


Construye un organigrama y un programa para que, introduciendo el 
nombre y la fecha de nacimiento de cien personas, el ordenador imprima 
el nombre y la fecha de nacimiento de la persona más joven. (Supondre- 
mos que sólo hay una persona “más joven”. Te conviene escribir las fe- 
chas de nacimiento como un sólo número: 16 de marzo de 1965 = 
= 19650316). 


Dada una tabla de cinco filas y tres columnas escribir dicha tabla y su 
traspuesta. 


Consideremos en la parte superior izquierda de la pantalla, diez líneas 
y veinticinco espacios. Imprimir en ella cincuenta puntos aleatoria- 
mente. 


A unas elecciones se presentan N candidatos; introduciremos sus nom- 
bres en el ordenador mediante variables alfanuméricas con índice. Des- 
pués de la votación se recuentan los votos: mediante la función RND ire- 
mos introduciendo los votos en variables numéricas con índice, correla- 
tivas (con igual índice) a las variables de los nombres de los candidatos, 
y esto hasta llegar a V votos. La pantalla mostrará al final la lista orde- 
nada de los candidatos según los votos obtenidos. 


Simular unas carreras de caballos con apuestas. Primero darás nombre 
a los caballos participantes mediante variables alfanuméricas con índi- 
ce. Después se admitirán apuestas, que irás introduciendo en variables 
numéricas con el mismo índice que el caballo al que se juega. Cada bole- 
to de apuestas vale 100 ptas. Por último, mediante la función RND, 
el ordenador dará el nombre del caballo ganador, dividirá el dinero to- 
tal recaudado, entre el dinero apostado al caballo ganador, cifra que 
multiplicada por 100 señala el dinero que se entregará por cada boleto 
acertante. 


Simular una carrera de once caballos numerados del 2 al 12. El avance 
de cada caballo se decide lanzando dos dados: la suma obtenida es el 


7.13) 


7.14) 


7.15) 


7.16) 


7.17) 


7.18) 


7.19) 


número del caballo que avanza un espacio. Se acaba la carrera cuando el 
primero llega a la meta. (Conviene representar el avance de los caballos 
por una especie de diagrama de barras). 


De los cuatro métodos de ordenación de listas estudiados en este capítu- 
lo ¿cuál crees tú que es el más rápido? Diseña un programa que te permi- 
ta medir estos tiempos. Puedes cronometrar con tu reloj o, mejor aún, 
con el reloj interno del ordenador ( ¡si lo tiene!). 


Representa en la pantalla todas las permutaciones de la palabra BASIC, 
obligando a que el segundo y cuarto lugar los ocupe una vocal. 


De una baraja española, el ordenador debe repartir cinco cartas a cada 
uno de los cuatro jugadores de una partida. Una carta ya dada no puede 
volver a salir. Puedes utilizar variables con dos índices: para el palo y 
para el número. La variable valdrá O si esa carta no se reparte, y 1, 2,36 
4, si se reparte al jugador correspondiente. 


Haz un programa para jugar a las siete y media. 


Siguiendo las instrucciones del ejercicio 6.55) y los métodos de ordena- 
ción de listas de este capítulo, haz un programa para ordenar alfabética- 
mente una lista de nombres. Puedes hacerlo por varios métodos. 


Haz un programa por el que el ordenador pregunte los nombres de N per- 
sonas, y nos permita archivar su edad, estado, peso e ingresos anuales 
(0 en su caso). Después el programa ha de preguntar qué dato queremos 
repasar, por ejemplo: edad 35, o peso 72, etc. A cada respuesta nuestra 
contestará la máquina con la lista de personas que se encuentran en esa 
situación (o NINGUNO en su caso). 


Un almacén tiene departamentos de ferretería, droguería y bebidas. Asig- 
na diez artículos a cada departamento mediante variables de cadena con 
índice. Por ejemplo F$(1)=“TORNILLOS”, D$(1)= “DETERGENTE”, 
B$(1)=*VINO”, F$(2)=... y así hasta diez. El almacén sólo atiende a las 
personas o entidades que tienen contrato con él, para el correspondiente 
departamento: Puedes asignar a S$(1,J) los nombres de los socios (1) abo- 
nados al departamento J (J vale 1, 2 6 3). Deseamos que cuando llegue 
alguien a comprar, se verifique primero si tiene contrato con el departa- 
mento que busca; en caso afirmativo que aparezca la lista de artículos de 
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ese departamento y se le pregunte cuál desea. Has de prever el mensaje 
correspondiente a error en la petición. 


LA COLECCION DE CROMOS 


¿Cuántos cromos hay que comprar para completar un álbum de 100? Se 
supone que compramos los cromos de uno en uno y que todos tienen la 
misma probabilidad de salir. El álbum consistirá en las variables de índice: 


CON, 262) CU), se, E(100) 


Comprar un cromo es equivalente a extraer un número aleatorio del 1 
al 100, (D, y sumar la unidad a la variable C(I), como hicimos en la fabri- 
cación de botellas. 


Desde el principio escrutamos el álbum para ver si faltan cromos (aunque 
sabemos que antes de las cien primeras extracciones es imposible que el 
álbum esté completo). Desde el momento en que encontramos una 
variable con valor cero (no hay cromos) compramos otro cromo, pero 
guardando en una variable auxiliar este índice, que representa el número 
del primer cromo que falta. El siguiente escrutinio lo empezaremos, pre- 
cisamente, por dicho número. 


Cuando hayamos comprobado que el valor de todas las variables es dis- 
tinto de cero hacemos imprimir el número de extracciones de cromos, 
que previamente hemos tenido que ir contando. Si, además, hacemos im- 
primir los valores de las variables C(I) en forma de una tabla de 10 x 10, 
podemos saber cuántas veces ha salido cada cromo. 


A continuación proponemos un organigrama para este problema, a partir 
del cual tienes que diseñar tu programa que, en definitiva, es lo que se te 
pide. 


PRINCIPIO 


CMD=CD +1 
N=N +1 


NO 


SIGUIENTE J 


IMPRIMIR 
N y C(1), C(2), 
C(3), . . .. C(100) 


Fig. 7.3 
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7.21) EL DESTINO DE UNA URNA 


Se parte de una urna cuya composición inicial es de una bola blanca y 
otra negra. Se extrae una bola al azar y se la devuelve a la urna acompa- 
ñada de otra del mismo color. Se repite el proceso hasta que en la urna 
haya cien bolas. 


Podemos considerar que la urna es un sistema que cambia de estado a lo 
largo de las distintas etapas. Desde la etapa inicial (etapa 2, porque en la 
urna hay dos bolas) hasta la etapa final (etapa 100) la urna atraviesa dis- 
tintos estados, entendiendo por estados cada una de las composiciones 
posibles de la urna; así, por ejemplo, en la etapa 3 hay dos estados posi- 
bles: una blanca y dos negras o dos blancas y una negra. 


PROPORCION 
ETAPA ESTADO BLANCAS 


Fig. 7.4 


En la etapa 100 hay 99 estados posibles. ¿A cuál de estos 99 estados lle- 
gará la urna? Imposible predecirlo: todos ellos son igualmente probables; 
es decir, la probabilidad de que la urna llegue a un estado final concreto 
es 1/99. 
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1:22) 


7.24) 


Aunque al principio no podamos predecir qué estado final alcanzará la 
urna, sí que lo podemos hacer (con cierta seguridad) cuando hayan trans- 
currido algunas etapas, porque se puede comprobar, mediante simulación, 
que la proporción de bolas blancas se estabiliza a lo largo del proceso. 


Diseña un programa de modo que en cada etapa se imprima en pantalla la 
proporción de bolas blancas. Comprobarás el hecho notable de que dicha 
proporción se estabiliza a partir de una cierta etapa. 


JUEGO DEL SUBMARINO 1 


En un casillero de 6 x 6 el ordenador sitúa al azar un submarino, fuera 
del alcance de nuestra vista y del sónar. Vamos lanzando cargas de pro- 
fundidad en diversas casillas. Si una carga da al submarino, el ordenador 
contesta “HUNDIDO”. Si da en una casilla contigua a la del submarino, 
el ordenador contestará “SUBMARINO CERCA”. Si la carga da en otro 
lugar la contestación es “AGUA”. 


Al hundir el submarino el ordenador ha de sacar en pantalla el número 
de cargas de profundidad utilizadas: así puede haber competición entre 
varios jugadores, ganando quien consiga el hundimiento con el menor nú- 
mero de cargas. (No es necesaria la representación gráfica del juego). 


JUEGO DEL SUBMARINO 2 


Variante del juego anterior en un casillero de 10 x 10. En cada carga lan- 
zada la máquina contesta la distancia (en casillas) al submarino, y si la 
distancia es O contesta “HUNDIDO”. Pero en esta variante el submarino 
se mueve: cada vez que lanzamos una carga se desplaza aleatoriamente 
una casilla. (Si va hacia los bordes rebotará en ellos). Igual que antes se 
trata de hundir el submarino con el menor número posible de cargas. 


RESOLVER SISTEMAS DE ECUACIONES LINEALES POR EL ME- 
TODO DE GAUSS (o de triangulación) 


El programa debe resolver sistemas de N ecuaciones con N incógnitas. 
Para simplificar la explicación veamos cómo se opera si se trata de un 
sistema de 3 ecuaciones con 3 incógnitas: 


A(1,1)-X1 + A(1,2).X2+ A(1,3) -X3= A(1,4) 
AQ,1).X1 + A(2,2).X2+ A(2,3) .X3= A(2,4) 
A(3,1)-X1 + A(3,2) -X2+ A(3,3) -X3 = A(3,4) 
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Si A(1,1) es distinto de cero, a la segunda ecuación se le resta la prime- 
ra multiplicada por A(2,1) y dividida por A(1,1). De igual forma a la ter- 
cera ecuación se le resta la primera multiplicada por A(3,1) y dividida 
por A(1,1). De esta manera queda un sistema de la forma: 


A(1,1) «XI + A(1,2)-X2+ A(1,3) -X3= A(1,4) 
A(2,2) -X2 + A(2,3) -X3 = A(2,4) 
A(3,2) .X2 + A(3,3) .X3 = A(3,4) 


donde los coeficientes tienen valores no necesariamente iguales a los ini- 
ciales. 


Si A(1,1) fuera igual a cero, al no poder dividir por cero tomaríamos en 
vez de la primera ecuación la segunda; y si A(2,1) también fuera cero ten- 
dríamos que tomar en vez de la primera ecuación la tercera. Eso sí, uno 
de los tres ha de ser distinto de cero pues de lo contrario se trataría en 
realidad de un sistema de tres ecuaciones con dos incógnitas. 


El paso siguiente consiste en restar a la tercera ecuación la segunda multi- 
plicada por A(3,2) y dividida por A(2,2), con lo que queda un sistema de 
la forma: 


A(1,1) -X1 + A(1,2).X2 + A(1,3).X3 = A(1,4) 
A(2,2) .X2 + A(2,3) . X3 = A(2,4) 
A(3,3) .X3 = A(3,4) 


en el que el cálculo de X3 es inmediato. Conociendo X3, se obtiene ense- 
guida X2 de la segunda ecuación, y de ambos X1 en la primera. 


Para el segundo paso queda salvar la posibilidad de que A(2,2) sea cero. 
Puedes tratarlo como en el caso de que A(1,1) fuera cero. La diferencia 
es que aquí pueden ser nulos a la vez A(2,2) y A(3,2). Entonces es seguro 
que el sistema no es compatible determinado, por lo que podrías sacar en 
pantalla “ESTE SISTEMA NO TIENE SOLUCION UNICA”. Si te ves 
con fuerzas distingue el caso de que el sistema sea indeterminado o de 
que sea incompatible. 


8 
SUBRUTINAS 


8.1 INTRODUCCION 


A veces ocurre en un programa que las líneas que van de 360) a 5NQ efec- 
túan el mismo trabajo que las que van de 610 a 75 y que las comprendidas en- 
tre 1240 y 1380. Ahorraríamos mucho trabajo si pudiésemos programar una 
sola vez todos aquellos trabajos idénticos que se realizan varias veces. A estas 
partes “portátiles” de un programa, que figuran en él una sola vez, pero que se 
pueden ejecutar tantas veces como haga falta, y en los lugares del programa que 
las necesitemos, las llamamos subrutinas. Si tenemos una subrutina escrita en 
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las líneas que van de la 1380 a la 1430 de un cierto programa, y necesitamos 
usarla en la 290, la situación será la siguiente: 


29, 


190 
119 
120 
200 
390 
319 
320 
400 
410 
420 
430 
500 
519 
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280 B=58 ¿nn . 
290 GOSUB 1380 


1389) B=B+H 


309 PRINT a . 
143Q RETURN (regreso) 


Al llegar a la línea 280, la variable B toma el valor 58; en 290), la orden 
GOSUB 1389 es un direccionamiento incondicional a la línea 1380, que ade- 
más recuerda al ordenador que cuando tropiece con una orden RETURN (re- 
greso), habrá de continuar la ejecución del programa en la línea siguiente a la 


la 30P en este ejemplo. 


Vamos a ver un ejemplo sencillo que ilustra el funcionamiento de un pro- 
grama dotado de dos subrutinas, una de suma y otra de producto; la primera 
nos proporciona los resultados en un texto “vertical” y la segunda en uno 
“horizontal”. 


LET A=4 
LET B=5 
GOSUB 1000 
GOSUB 2000 
LET A>=3 
LET B=1P 
GOSUB 2000 
LE A=2 
LET B=1 
GOSUB 1000 
GOSUB 2000 
PRINT “ESTO ES TODO” 
END 


1909 PRINT “SUBRUTINA PRIMERA” 
1010 LET S1=S1+1 

19209 PRINT “UTILIZACION”;S] 

1930 PRINT“A=”;A 

19409 PRINT “B=”;B 

195 PRINT “A +B=”;¡A+B 

1990 PRINT “FIN DE SUBR. PRIMERA” 
1109 RETURN 

2009 PRINT “SUBRUTINA SEGUNDA”; 
201 LET S2=82+1 

20209 PRINT “UTILIZACION”; S2 

2030 PRINT“A=”;A;“ Y B=”;B, 
2/4 PRINT “LUEGO Ax*B =” ¡Ax*B 
2089 PRINT “FIN DE SUB.SEGUNDA” 
2099 PRINT 

2095 PRINT 

2100 RETURN 


Como diagrama de flujo asociado a este programa tenemos el siguiente: 


PRINCIPIO 


SI=SI1 +1 


Fig. 8.1 


Es posible que una subrutina tenga, a su vez, subrutinas, de forma seme- 
jante a los bucles, que podían estar unos dentro de otros, anidados. 
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8.2 PROGRAMACION DESCENDENTE 


Si necesitamos conocer con exactitud y precisión cómo es una zona del 
mundo, enviar una partida de exploradores no es precisamente la mejor forma 
de lograrlo: conseguiremos tener descripciones pintorescas y detalladas de al- 
gunos lugares, pero no conoceremos con exactitud las distancias y posiciones 
relativas de unos respecto a otros; sabremos cómo se recortan contra el cielo los 
«picos de algunas montañas, pero careceremos de un conocimiento preciso de la 
cordillera que forman, y no tendremos la certeza de que no haya algún pequeño 
valle escondido donde paste el unicornio. La forma más apropiada de proceder 
hoy sería la siguiente: 


12 Delimitar en una fotografía hecha desde un satélite artificial la zona 
que se pretende explorar. 


Fig. 8.2 


22 Con aviones volando a gran altura (25.000 m ) podemos hacer pasadas 
sobre la zona acotada en 1%, de tal forma que, si el ángulo que cubre la cámara 
fotográfica que transporta el avión es de 90%, la fotografía que toma es de un 
cuadrado de 50 km de lado; 
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dy 
90% 


km. 


a ll 


Fig. 8.3 


así podemos dividir la zona inicial en un cierto número de zonas menores —en 
nuestro ejemplo serán 24— como aparece en la siguiente figura. 


32 Repetimos el proceso anterior utilizando, ahora, aviones que vuelen a 
media altura (5.000 m ) y lleven el mismo tipo de cámara; así obtendremos fo- 
tos de cuadrados de 10 kms de lado. 


42 Si luego efectuamos vuelos a “sólo” mil metros de altura, obtenemos, 
de cada uno de los cuadrados anteriores, otros veinticinco de dos km de lado. 
Estas fotos ampliadas hasta 1 m de lado —cosa nada exagerada para lo que es la 
cartografía aérea— nos permiten contar a la gente que toma el sol en las playas 
(una persona de 2 m de altura aparecerá allí como una rayita de 1 mm de lon- 
gitud, una carretera será una cinta oscura de no menos de 2 mm de ancho, 
etcétera). Este es el momento en que se puede comenzar a inspeccionar el terre- 
no a pie; pero no empezaremos enviando un equipo de químicos para analizar 
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la tierra del primer tiesto que encuentren, y cristalógrafos para que estudien la 
forma de los granos de esa tierra; el análisis sobre el terreno se puede llevar a 
esos extremos, pero siguiendo un proceso análogo al que nos ha guiado hasta es- 
te momento: de arriba a abajo, así, si está el unicornio, le veremos. 


Si aplicamos este método de exploración a la elaboración de algoritmos 
para la resolución automática de problemas, estaremos haciendo lo que se lla- 
ma programación descendente. 


Las subrutinas, que nacieron de la necesidad de no repetir innecesariamen- 
te un trabajo ya hecho, resultan muy apropiadas para facilitar la programación 
descendente. 


8.3 HABLANDO CON EL ORDENADOR 


Vamos a aplicar estos principios enunciados a un caso concreto. Deseamos 
programar en el ordenador una conversación limitada. El ordenador nos hace al- 
gunas preguntas y controla las contestaciones, de forma que no admitirá nin- 
guna que considere absurda. Las preguntas:que nos va a hacer son: 

1? ¿En qué número de la calle vives? 

No aceptará valores inferiores a 1 ni superiores a 400. 

2* ¿En qué piso? 

El bajo será O y el sótano —1; no aceptará valores menores, ni 
tampoco mayores que 20. 
3* ¿Tienes hermanos? 


Sólo aceptará sí o no. 
Si la contestación a la pregunta anterior ha sido afirmativa, pre- 
guntará 


4? ¿Cuántos? 


La contestación habrá de estar comprendida entre 1 y 22. 
No se admitirán contestaciones numérica no enteras. 


El planteamiento que hacemos de este problema es el siguiente: 


Principio 
1. Hacer la primera pregunta 
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2. Hacer la segunda pregunta 
3. Hacer la tercera pregunta 
4. Si se contesta afirmativamente la tercera, entonces 
Hacer la cuarta pregunta 
Fin de Si (aquí termina el módulo 4) 
Fin 


El diagrama de flujo asociado es: 


PRINCIPIO 


¡99 09) 


A: 


Fig. 8.5 


Si refinamos un poco el planteamiento anterior, tenemos: 
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1. Hacer la primera pregunta 

hasta que no haya error en la contestación 
2. Hacer la segunda pregunta 

hasta que no haya error en la contestación 
3. Hacer la tercera pregunta 

hasta que no haya error en la contestación 
4. Si la contestación a la tercera es afirmativa 

entonces 


Hacer la cuarta pregunta 


hasta que no haya error en la contestación 
Fin de Si 
Fin 


Podemos traducir esto, de manera inmediata, al lenguaje de los esquemas 
gráficos, según figura en el organigrama de la derecha, Fig. 8.6. 


A la vista de este diagrama, resulta evidente que el programa consiste en 
preguntar lo mismo un cierto número de veces; bastará tener cuidado para saber 
qué admitir como contestación correcta o incorrecta cada vez. De todas formas, 
se ha de excluir de este proceso de homogeneización la pregunta tercera, que 
tiene contestación no numérica. 


La variable E es un indicador de error; sólo tomará dos valores: 0, cuando 
no está activada, y 1, cuando se ha cometido un error (a este tipo de indicado- 
res se les suele llamar banderas). La utilizaremos para saber si se ha de repetir, 
o no, la pregunta; sirve para guiar al ordenador durante la ejecución del progra- 
ma. Tras saber que se ha de repetir una pregunta —porque E vale 1, hay res- 
puesta errónea— es necesario desactivar el indicador, pues en caso contrario, 
aunque la siguiente respuesta sea correcta, E seguiría valiendo 1; así pues, an- 
tes de repetir una pregunta, hacemos E = 0. 


En cada una de las preguntas de contestación numérica escribiremos, en 
primer lugar el texto de la pregunta en la pantalla y, luego, al introducirse un 
valor como contestación, veremos si es entero, mayor que el valor mínimo ad- 
mitido, A, y menor que el máximo admitido B. Un diagrama de flujo que sim- 
boliza estas actuaciones se puede ver en la Fig. 8.7. 
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PRINCIPIO 


A E A 


| 
_ 


GUNTA 


4* PRE 
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<A SI 


NO PUEDE 
SER 


SI 


NO 


Fig. 8.7 


El proceso total se simbolizaría, entonces, así: 


ty 
> 


qa 
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Como vemos, la subrutina es un poco más complicada que cada una de las 
preguntas, para poder, así, poner en pantalla el texto apropiado. 


Este programa nos repetiría un cierto número de veces la misma tarea, con 
la única excepción de la tercera pregunta. Un programa que se obtiene de forma 
inmediata a partir de este diagrama de flujo es el siguiente: 


109 
119 
120 
130 
149 
150 
290 
219 
229 
230 
249 
390 
310 
320 
330 
340 
350 
364 
490 
410 
420 
430 
440 
480 
500 
510 
52 
530 
540 
550 
5) 
600 
610 
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REM CONVERSACION 

REM PREGUNTA PRIMERA 

LET P=1 

LET A=1 

LET B=400 

GOSUB 509 

REM PREGUNTA SEGUNDA 

LET P=2 

LET A=1 

LET B=2 

GOSUB 500 

REM PREGUNTA TERCERA 

INPUT “TIENES HERMANOS”; C$ 

IF C$=“SI” OR C$=“NO” THEN 350 
PRINT “ERROR. ESA CONTESTACION NO ES CORRECTA” 
GOTO 310 

REM SI NO TIENE HERMANOS SE ACABA 

IF C$=“NO” THEN 489 

REM CUARTA PREGUNTA 

LET P=4 

LET A=1 

LET B-=22 

GOSUB 500 

GOTO 760 

REM SUBRUTINA 

REM TEXTO DE LA PREGUNTA CORRESPONDIENTE 
IF P=1] THEN PRINT “EN QUE NUMERO DE LA CALLE VIVES?” 
IF P=2 THEN PRINT “EN QUE PISO VIVES?” 
IF P=4 THEN PRiNT “CUANTOS?” 

REM CONTESTACION 

INPUT N 

REM RESPUESTA CORRECTA? 

IF N<A OR N< >INT(N) THEN 650 


629 IF N >B THEN 68/ 

639 REM NO HAY ERROR 

649 GOTO 700 

65 PRINT “NO PUEDE SER ESE NUMERO” 
660 LET E= 1 

67% GOTO 700 


68Y PRINT “ESE NUMERO ES DEMASIADO GRANDE” 


69% LET E=1 

700 REM SINO HAY ERROR SE ACABA 
710 IF E=Q THEN 759 

720 LET E=0 

730 GOTO 510 

7509 RETURN 

760 END 


8.4 LA OPCION MULTIPLE ON-GOTO; ON—GOSUB 


Cuando la contestación a una pregunta presenta tan solo dos alternativas, 
por ejemplo Sí o No, una contestación o todas las demás, un número o todos 
los demás, la programación es cómoda, pues tenemos una instrucción apropia- 
da (IF—THEN); pero si la opción es múltiple, por ej. P=1 ó P=2 6P=3 ó P=4, 
no tenemos aún una instrucción adecuada para decidirnos por uno cualquiera 
de estos valores y hemos de ir optando entre uno cualquiera y los restantes, has- 


ta que conseguimos aislar el valor elegido. 


Para remediar esta situación contamos con la instrucción ON—GOTO que 


se comporta así: 


1390. ON TI GOTO 400, 500,600, 1320, 1500 
149 LET R=R+3 


Si I vale 1, entonces se transfiere el control a 400 
Si I vale 2, entonces se transfiere el control a 5PQ 
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Si I vale 3, entonces se transfiere el control a 600 
Si I vale 4, entonces se transfiere el control a 132( 
Si I vale 5, entonces se transfiere el control a 15PQ 


Si les 6, más que 6, o si l es menor que 1, entonces el control se transfiere 
a14f. 


Ilustraremos esto con un ejemplo: 


Al final de una carrera los 8 corredores han de pulsar una tecla numérica, 
indicadora del lugar en que llegaron a la meta. El ordenador tiene introducido 
un programa que felicita a los tres primeros, en forma diferente según el puesto 
ocupado, y a los demás les recuerda que no han alcanzado el premio; además 
controla las trampas. 


PRINCIPIO 


A<1 SI 
AN 

A>8 

NO 


A=I Otras A 


Fig. 8.9 
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Para simplificar, en este programa no se comprueba si varios dicen ocupar 
la misma posición. 


100 REM CARRERA 

119 PRINT Borrado de pantalla 

129 INPUT “EN QUE LUGAR HA LLEGADO”; A 

13Q LET N=N+ 1 

149 ON A GO TO 1000. 2000. 3000 

I5Q REM SIA NO ES UNO, DOS NI TRES, LA EJECUCION SIGUE 
POR AQUI 

16Q REM PUEDE HABER LLEGADO A ESTA POSICION? 

179 IF A<1 OR INT(A)<>A OR A>8 THEN PRINT “ERES UN 
TRAMPOSO. ESA POSICION NO EXISTE” 

189 GOTO 4000 

19Q IF A>=4 THEN PRINT “LO SIENTO. NO HAY PREMIO” 

200 GOTO 4000 

100Q REM SIA ES UNO SE VIENE DE 14) A ESTE PASO 

1019 PRINT “ENHORABUENA CAMPEON” 

1920 GOTO 4000 

2000 REM SIA ES DOS SE VIENE DE 14() A ESTE PASO 

2019 PRINT “MUY BIEN, HA FALTADO MUY POCO” 

2029 GOTO 4000 

3000 REM SIA ES TRES SE VIENE.DE 140 A ESTE PASO 

3010 PRINT “HA CORRIDO MUY BIEN” 

4000 PRINT 

4019 PRINT 

40209 PRINT 

4030 IF N=8 THEN 5000 

404 REM A UN FALTAN 

4050 PRINT “EL SIGUIENTE”; 

4069 GOTO 120 

5000 END 


Veamos otro ejemplo. Utilizaremos de nuevo esta instrucción para resolver 
la ecuación de segundo grado. Seguiremos el diagrama: 
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PRINCIPIO 


D=B?-4AC 
S = SGN(D) 


Raíces imaginarias Raíces reales dobles Raíces reales simples 


Fig. 8.10 
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El programa sería: 


190 
119 
149 


150 
160 
170 
290 
230 
250 
280 
300 
320 


350 
360 
379 
38 
399 
spp 


549 
550 
56Q 
589 
790 


730 
740 
750 
760 
800 


REM RESOL. EC. SEGUNDO GRADO 

REM ENTRADA DE COEFICIENTES 

PRINT “INTRODUZCA LOS COEFICIENTES 

DE AX12 + BX + C=Q” 

INPUT “A="”";A 

INPUT “B =>”;B 

INPUT “C="”;C 

REM DISCRIMINANTE 

LET D=B?2- 4xAx*C 

REM PREPARACION PARA BIFURC. MULTIPLE 

LET S=SGN(D) + 1 

ON S GOTO 500, 700 

REM SID<Q ENTONCES S + 1=Q Y LA EJECUCION SIGUE 
AQUI 

PRINT “LAS RAICES SON IMAGINARIAS CONJUGADAS” 
PRINT 

PRINT “XI="”:;¡-—B/(2x*A)“+”;¡ABS(SOR(ABS(D) JQx*A) );T>” 
PRINT “X2=”;-B/Qx*A);“—”¡ABS(SQR(ABS(D) )JQ*A) ):“TP” 


GOTO 800 

REM SID=(Q ENTONCES S+1= 1 Y LA EJECUCION 
VIENE AQUI 

PRINT “RAIZ REAL DOBLE” 

PRINT 

PRINT “X=”;-—B/(2*A) 

GOTO 800 

REM SID> Q ENTONCES S+ 1 =2 Y LA EJECUCION 
VIENE AQUI 

PRINT “DOS RAICES REALES DISTINTAS” 

PRINT 


PRINT “X1 =”:¡-B+SQR(D) )/2x*A) 
PRINT “X2 =”—B-SQR(D) )J/QxA) 
END 


En lugar de utilizar el direccionamiento múltiple, se podría hacer con sub- 
rutinas, en una forma análoga: 


Y 
190 
129 


ON K GOSUB 1000, 1200, 3100 
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si K cumple 1< K< 2, se ejecuta la subrutina 1000 y se regresa a la línea 120; si 
2<K< 3, se ejecuta la 120f y se regresa a 120; si 3 <K < 4, esla 3100; si 
1>K064<K, entonces se pasa directamente a la 12(/. 


RECUERDA 
Subrutina NE GOSUB 
Programación descendente RETURN 
Opción múltiple en el salto 
incondicional ON-—GOTO 
Opción múltiple en las 
subrutinas | ON—GOSUB 
EJERCICIOS 


8.1) Llamamos por teléfono varias veces a un número equivocado. Preparar 
un programa con contestaciones cada vez más secas. 


8.2) El abuelito “gagá”. Simular con el ordenador un abuelito que cuando le 
preguntan por sus nietos siempre quiere saber por cuál. Si es por la niña, 
dice que “es un angel”; si le dicen que Carlos, contesta que “no estudia 
nada” y de Pepe que “es un bestia, no sabe más que darme balonazos”. 
(Utiliza la instrucción ON—GOTO). 


8.3) Haz un programa semejante al del ejercicio 7.2 utilizando la instrucción 
ON—GOTO. 
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8.4) 


8.5) 


8.6) 


8.7) 


8.8) 


8.9) 


Haz lo mismo con ON—GOSUB. 


Examina el signo del número contenido en una variable X. Si es negativo, 
que el programa escriba NEGATIVO; si es positivo deberá salir en panta- 
lla POSITIVO, y si es cero, CERO (Utiliza la función SGN y la instruc- 


ción ON—GOTO). 


Haz un programa análogo al del cambio de divisas del apartado 4.2, en su 
primera versión, pero ahora ofreciendo la venta de más divisas, 6 u 8, por 


ejemplo. (Emplea la instrucción ON—GOTO). 


Haz lo mismo con ON—GOSUB. 


Utiliza una subrutina que analice si un número es primo o no para resol- 


ver el problema OCTOBER. Se tiene la siguiente multiplicación: 


XXXXXX 
XxX 


XXXXXX 
XXXXXX 


OCTOBER 


donde tanto las X como las letras son números (ninguna letra vale cero). 


Los datos son los siguientes: 


12) son primos cada uno de los siguientes números 


OCTO TOBER 
ETO OBER 
CTOB BER 

TO BE 
TOBE ER 
R 


22) el número OCTOBER tiene un divisor primo menor que 10. 


¿Puede una subrutina contener más de una instrucción RETURN? 


8.10) Explicar el error del siguiente programa: 
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3 GOSUB 100 


10Q REM SUBRUTINA A 


129 GOSUB 200 


16 RETURN 


20Q REM SUBRUTINA B 


225 GOSUB 100 


245 RETURN 
250 END 


8.11) ¿Por qué es incorrecta la siguiente instrucción? 


SVQ ON N$ GOTO 60,70,90 


8.12) Prepara un programa que realice la suma, resta, multiplicación o división 
de dos polinomios, a nuestra elección (Utiliza el principio de la progra- 
mación descendente). Los grados de los polinomios no pueden ser mayo- 
res de 10. 


8.13) Programar un controlador de vuelo automático que atienda las llamadas 
de hasta cinco aviones que pretendan aterrizar en el aeropuerto (nosotros 
seremos los pilotos de los aviones). Los criterios de preferencia serán los 
siguientes: 
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1) Avería grave a bordo. 
2) Combustible escaso. 
3) Avería leve a bordo. 


Si el combustible es muy escaso puede ser prioritario frente a la avería 
grave (tú has de pormenorizar estos criterios). El tiempo necesario para 
el aterrizaje de un avión, desde que recibe la orden será de 4 minutos. En- 
tre dos aterrizajes ha de mediar, cuando menos, un minuto. 


8.14) Utilizando programación descendente, repite el ejercicio 7.19. 


8.15) Empleando subrutinas, programa el ejercicio 7.20, considerando cuatro 
coleccionistas que intercambian los cromos repetidos. Los cromos se 
compran en sobres de tres cromos cada uno. 


8.16) Prepara un programa que nos permita jugar a la brisca contra el ordena- 
dor. No puede quedar ninguna regla sobreentendida. Cuida la presenta- 
ción. La máquina reparte las cartas y es uno de los dos jugadores. 


8.17) Análogo al anterior, pero jugando al tute (para dos jugadores). 
8.18) Haz los programas anteriores para cuatro jugadores. 


8.19) Los sistemas situados a menos de un parsec (3.26 años luz) del nuestro, 
que tienen mayor probabilidad de poseer algún planeta habitable son: 


Estrella Distancia (a.1.) | Probabilidad 


Alfa Centauro .................... 4,3 
Epsilón Eridano................... 10,8 
Tau Ballena.........c..cooommm... 12,2 
TOO CO io 17,3 
Eta Casiópea.. coimas rn es 18,0 
Sigma Dragón .................... 18,2 
E AU 18,2 
HR TIOS 0 cian ca 18,6 
Delta .BavOs +00. sta ciu nacs Ga dle 19,2 
92 BOdMO + 00d ciar a e 20,9 
Beta Hidra Mach0................. 21,3 


TIN 21,4 
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Programa el ordenador de tu astronave de forma que permita al piloto 
tener en pantalla, a elección: 


12) La lista ordenada por distancia a nuestro sistema, con esta distancia 
expresada en: - 
a) años luz 
b) parsecs 


22) La lista ordenada por probabilidad de poseer planetas habitables. 


8.20) La velocidad que ha de alcanzar una astronave para poder escapar de la 
atracción de nuestro sistema planetario (velocidad de escape) es, aproxi- 
madamente, 43,6 km /seg. La velocidad que alcanza una nave al cabo 
de T segundos de estar sujeta a una aceleración A es VT = VI+ Ax*T sien- 
do VI la velocidad inicial. Consideremos que una astronave que ha de 
transportar una tripulación humana y ha de estar acelerando un período 
considerable de tiempo, debe tomar como A el valor 10 m /seg ?. 


Según la teoría de la relatividad, el tiempo a bordo de la nave, TN, de- 
pende de la velocidad de ésta según la fórmula 


TN =TTV 1- V?/c? 


(TT es el tiempo- Tierra; c es la velocidad de la luz, 3-10% km /seg ). 


Completar el programa del ejercicio anterior para que el piloto pueda, 
tras elegir una estrella y una velocidad de crucero, conocer: 


12) El tiempo que se va a tardar en alcanzar la velocidad de crucero, 
tras lograr la velocidad de escape (medida en años, meses, días y 
horas), en 
a) tiempo de la nave 
b) tiempo de la tierra 


22) Idem. para completar el viaje. 


8.21) Prepara un programa que traduzca un mensaje cualquiera empleando el 
código Morse: 


O ----- d - q=-=.- 
ll. == - e ro. — 
2. === f —- Ss. 
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3. = — g =--— t — 
4. - h. u. - 
De ¡DE Ves — 
6 — j.--=-— W. —-- 
1 --— l. — x — —- 
8 ---— m —-— Y =. -- 
9 == -- n-— Z=m.. 
a. - Ñ ==. =- punto . —. 
b — 0 =--- Poo. =—. 
C=. - p. -——. comienzo — . 
fin. . .—. 


(Utiliza la instrucción ON—GOSUB y la función CHRS( ) ). 
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9 


MANEJO DE DATOS: 
FICHEROS 


IDECIARA LA VERDAD 
TODA 4 VERDAD 
7 SOLAMENTE ¿A VERDAD e y 


9.1 INTRODUCCION 


En los primeros capítulos hemos visto dos instrucciones para asignar a 
unas variables determinados valores, que ahora llamaremos datos; eran las ins- 
trucciones LET e INPUT. Hemos aprendido a manejar esos datos y a presentar 
unos resultados; los datos, una vez utilizados, se traducían en unos resultados 
en la pantalla, o en el papel de la impresora. 


Pero en algunos programas se manejan inmensos Bancos de Datos. El mo- 
vimiento de las cuentas corrientes en una sucursal bancaria, o la cantidad de in- 
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formación que supone el censo de una población cara a las elecciones, presen- 
tan un enfoque de la Informática bastante distinto del que hemos visto hasta 
aquí. 


Estos programas gigantes no suelen hacerse en BASIC sino en otros len- 
guajes; muchas veces en Ensamblador o en código de máquina, e incluso se 
tiene un ordenador con un sólo programa: para llevar la contabilidad por ejem- 
plo. 


Sin embargo, si reduces tus pretensiones, ciñéndolas a los datos de tus 
compañeros de clase, por ejemplo, el BASIC puede resolver tus problemas. 
¿Has pensado en las complicaciones que surgen? 


La tarea de introducir los datos mediante instrucciones LET o INPUT es 
lenta, incómoda y a veces da lugar a equivocaciones. Esta información ha de 
grabarse de tal forma que no sea preciso volverla a teclear nunca más. 


Sin embargo, pueden ser necesarias modificaciones en los datos. Nos inte- 
resa, entonces, que estas modificaciones se puedan efectuar con facilidad. 


En otras ocasiones los resultados de un programa quedan en la pantalla o 
en la impresora, y para trabajar con ellos, para utilizarlos en un nuevo progra- 
ma, habrá que teclearlos otra vez. Nos gustaría arbitrar un procedimiento me- 
diante el cual los resultados queden grabados, guardados de alguna manera fácil- 
mente accesible. 


Queda suficientemente claro que con las instrucciones LET e INPUT no 
podemos ir muy lejos en este terreno. El BASIC ofrece dos posibilidades: archi- 
vo de los datos en líneas de programa y archivo de datos y de resultados en fi- 
cheros de memoria exterior: cassettes o diskettes. 


9.2 LOS DATOS EN LINEAS DE PROGRAMA 


Cuando en un programa vamos a trabajar con un volumen de datos, numé- 
ricos, alfanuméricos o de ambos tipos, de cierta entidad, las instrucciones LET 
e INPUT resultan lentas e incómodas, y se suele utilizar el par de sentencias 
DATA y READ, que trabajan siempre juntas, son correlativas. 


Las instrucciones DATA son simples almacenes de datos separados por co- 
mas (,). Por ejemplo: 
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309 DATA 4,16.2,-11,10.123 
4 DATA OSCAR,CARLOS 
SY DATA 4,16.2,0SCAR,—11,10.123,CARLOS 


Las instrucciones DATA se comportan de forma muy parecida a las defini- 
ciones de funciones: DEF FN: 


— no son ejecutables. El programa pasa por ellas sin hacer nada. 


— un programa puede llevar tantas instrucciones DATA como queramos y, 
por una cuestión de orden y claridad, es conveniente situarlas todas jun- 
tas, al principio o al final del programa. 


— cuando el ordenador encuentre una instrucción READ, buscará el 
DATA correspondiente, en cualquier lugar del programa en que se en- 
cuentre, de modo parecido a lo que sucedía con FN y DEF FN. 


— no importa que algunos datos se queden sin leer; pero si se intentan leer 
más datos de los disponibles se comete un error, que será denunciado 
por el mensaje correspondiente. 


La instrucción READ, por ejemplo: 


79 READ A,B 
8f) READ C,D,A$ 
9 READ BS$,E,F,C$ 


manda al ordenador que lea (READ = Leer) a partir del primer valor no leído 
todavía que figure en una sentencia DATA. Si las líneas escritas como ejemplo 
formaran parte de un único programa real, se tendría: 


A =4 

B = 16.2 

Cc =-1l 

D = 10.123 
A$ = OSCAR 
B$ = CARLOS 
E =4 

F = 16.2 

C$ = OSCAR 


197 


EJEMPLO 1. Calcularemos la longitud de tandas de circunferencias. 


109 REM CALCULO DE LA LONGITUD DE TANDAS DE CIRCUN- 
FERENCIAS 

119 READ R 

129 LET L=2*mx*R 

139 PRINT “PARA RADIO”;R;“LONGITUD”;L 

149 GO TO 110 

159 END 


Antes de ejecutar el programa hemos de introducir las líneas de datos, por 
ejemplo al principio del programa: 


19 DATA 2,5.1,6,0.1 
20 DATA 11.2,2.3 


Al correr el programa no sucede nada hasta la línea 110. Por orden del 
READ, el ordenador busca el primer valor de DATA no leído aún, que es 
el 2, el primero de todos, y R=2. Como consecuencia de las líneas siguientes 
L=2x*1x2 = 12.566370 6, y en pantalla aparece: 


PARA RADIO 2 LONGITUD 12.5663706 


De nuevo en la línea 110, se busca otro valor para R. Ahora el primer dato 
no leído es 5.1 y en la pantalla sale: 


PARA RADIO 5.1 LONGITUD 32.0 44245 


La variable R tomará sucesivamente los valores 6 y (.1; después de eso, 
agotados los datos de la línea 10, los tomará de la 20M), y R valdrá 11.2 y 2.3 por 
lo que en la pantalla irá saliendo: 


PARA RADIO 6 LONGITUD 37.6991118 
PARA RADIO .1 LONGITUD .628318531 
PARA RADIO 11.2 LONGITUD 7(.371675 
PARA RADIO 2.3 LONGITUD 14.45153262 
OUT OF DATA ERROR 


El mensaje final nos indica que, después de haber leído todos los DATA, 
en 110 se ha intentado leer un nuevo dato, y como están todos leídos sale un 
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mensaje de error. Ha sido una forma, poco elegante todavía, de terminar el 
programa. 


Los valores de las líneas DATA forman una especie de banco de datos 
que se leen ordenadamente, empezando por los de la primera línea, cuando 
éstos se agotan se pasa a los de la segunda línea, y así sucesivamente. 


EJEMPLO 2. Hagamos un ejercicio parecido al ejercicio 2 del capítulo 4, 
para calcular la media de edad de una población. Supongamos que contamos 
con la siguiente información: 


Edad 1 2 3 4 oa 107 108 109 110 
Núm. Pers. 835 902 871 790... 13 7 3 2 


Un programa sería: 


19 REM EDAD MEDIA 
29 REM LO$ DATA EN LAS LINEAS SIGUIENTES A 200) 
3 REM EL PRIMER VALOR SERA LA EDAD Y EL SEGUNDO LA 
FRECUENCIA 
4 REM AL FINAL PONER COMO DATO FICTICIO UNA FRECUEN- 
CIA NEGATIVA 
SQ FOR I=1 TO 1000 
60 READ E,F 
79 IF F<Q THEN 110 
8) LET S=S+Ex*F 
9 LET N=N+F 
19Q NEXT 1 
119 LET MEDIA = S/N 
1294 PRINT “LA MEDIA ES=”; MEDIA 
SOY END 


Antes de ejecutar este programa será necesario añadir los DATA: 


200 DATA 1,835, 2,90 2,3,871,4,790 ,... 

. 

34 DATA 1(7,13,108,7,109,3,11/,2,111,—1 (Testigo) 

El programa es fácil de entender. Se ha establecido un bucle FOR—NEXT 
de límites amplios, para que de hecho la salida del bucle sólo se produzca por 
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el IF de la línea 70, es decir, cuando se llegue al dato testigo, que es el último y 
que no debe contarse en N ni en S. 


EJEMPLO 3. Veamos ahora una aplicación con datos alfanuméricos. Ne- 
cesitamos un programa que imprima etiquetas para pegar en sobres de corres- 
pondencia comercial, que hemos de enviar a los representantes de una serie de 
firmas. Poseemos una lista en la que figuran los nombres de las empresas, y los 
de susrepresentantes, así como las direcciones de éstos. Escribimos el programa: 


100 REM DIRECCIONES PARA SOBRES 

119 READ EMS$ (Empresa) 

129 READ NOS (Nombre) 

139 READ DIS (Dirección) 

149 READ POS (Población) 

159 PRINT NOS 

160 PRINT 

170 PRINT EM$ 

1809 PRINT 

199 PRINT DIS 

200 PRINT 

2109 PRINT 

220 PRINT POS 

23 PRINT 

240 PRINT 

250 PRINT 

26 GO TO 110 

270 DATA PERAMATIC,SR. BAJO,C/SUCIA 24, VILLANARDOS 
28Y DATA INTERCASA,SR. CALVO,C/LARGA 376, VILLA TOBAS 
29 DATA SUBAVIA,SR. GORDO,C/ANCHA 13, VILLALBA 
o 

o 


S0Y END 


Al ejecutar el programa obtenemos: 


SR. BAJO 
PERAMATIC 
C/ SUCIA 24 


VILLANARDOS 
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SR. CALVO 
INTERCASA 
C/ LARGA 376 


VILLATOBAS 


SR. GORDO 
SUBAVIA 
C/ ANCHA 13 


VILLALBA 


Se puede observar que los DATA de cadenas admiten espacios en blanco y 
puntos, y que no necesitan comillas. Sólo si queremos que una cadena contenga 
una coma (,) será necesario encerrarla entre comillas. 


9.3 RESTORE 


Si los datos que se utilizan van a ser necesarios en más de una ocasión den- 
tro del mismo programa, es preciso evitar que, tras haberlos leído una vez, se 
“agoten”, como ocurría hasta ahora. La instrucción RESTORE (Realmacenar) 
regenera los valores de DATA, hace que el próximo valor a leer sea el primero 
del primer DATA, como si comenzáramos de nuevo la lectura. 


EJEMPLO 4. Completaremos el Ejemplo 2 con el cálculo de la desviación 
típica. La desviación típica es: 


rm 
> rs - 


Para calcular (x¡ — x )? »f¡ es necesario conocer previamente la' media DAN 
siguiendo con el ejemplo 2 elaboramos este programa: ds 


EJEMPLO 2 
Calcula la media 
x, y el número 
de personas, n 


REM MEDIA Y DESVIACION TIPICA DE LA 
EDAD 

REM LOS DATA EN LAS LINEAS SIGUIENTES 
A 200 

REM EL PRIMER VALOR SERA LA EDAD Y EL 
SEGUNDO LA FRECUENCIA 

REM AL FINAL PONER COMO DATO FICTICIO 
UNA FRECUENCIA NEGATIVA 

FOR I=1 TO 1000 

READ E,F 

IF F<Q THEN 110 

LET S=S+ExF 

LET N=N+F 

NEXT 1 

LET MEDIA = S/N 

PRINT “LA MEDIA ES= ” ¡MEDIA 

RESTORE 

FOR I=1 TO 1000 

READ EF (La lectura recomienza debido a 
RESTORE) 

IF F<Q THEN 190) 

LET S=S+(E—MEDIA) 2xF 

NEXT I 

LET DESV = (S/N) .5 

PRINT “LA DESVIACION TIPICA ES=”;DESV 
DATA 1,835,2,9M2,3,871,4,790,... 


DATA 107,13,108,7,109,3,110,2,111,—1 
END 


9.4 LOS DATOS EN FICHEROS DE MEMORIA EXTERNA 


Las instrucciones READ, DATA y RESTORE son sólo una mejora de las 
instrucciones LET e INPUT. Un inconveniente grave es que sirven para almace- 
nar y leer datos previos, pero no para grabar los resultados de un programa. 
Además, la modificación de los datos exige modificar líneas de programa, cosa 
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siempre pesada y lenta. Estas instrucciones son insuficientes para un tratamien- 
to serio de la información. 


¿Cómo se trabajaría con un fichero o archivo de oficina? La primera ope- 
ración, después de comprarlo, es abrirlo e ir metiendo fichas, puesto que estaba 
vacío. Para ordenar las fichas caben dos posibilidades: o bien por orden de en- 
trada, a medida que llegan (digamos por antigúedad), o bien con un criterio co- 
mo el orden alfabético o de un determinado código. 


También los ficheros informáticos se pueden construir de estas dos for- 
mas. Los primeros se llaman ficheros de acceso secuencial, y llevan los datos 
uno detrás de otro. Se podrían imaginar como una gran variable de índice, que 
admitiera índices altos, para muchos valores; pero en la que los datos no siguen 
otro orden o regla de clasificación más que el de llegada, están yuxtapuestos. 


Los segundos, los ficheros bien clasificados, se llaman ficheros de acceso 
directo. El orden que siguen no es el alfabético, sino un código que indica su 
posición en el disco en que se han grabado: les señalamos una posición y se 
graban en (o se leen de) ella. 


9.5 FICHEROS SECUENCIALES 


Los ficheros secuenciales son más sencillos de manejar, y tienen la peque- 
ña ventaja de ocupar un poco menos que los de acceso directo. Las cassettes 
sólo admiten ficheros de acceso secuencial, no admiten ficheros de acceso di- 
recto. 


Las instrucciones para manejar ficheros secuenciales varían notablemente 
con la marca y modelo del microordenador. Se utilizan básicamente cuatro ins- 
trucciones, que nosotros llamaremos OPEN, CLOSE, INPUT+f, y PRINTF. 


Antes de trabajar con un fichero hay que abrirlo, como si se tratara de un 
archivo de oficina con llave. Cuando se ha terminado el trabajo hay que cerrar- 
lo: si un programa llega al END con ficheros abiertos, suele salir un mensaje de 
error. La apertura de un fichero se hace con la instrucción OPEN. En ficheros 
secuenciales es la instrucción más delicada, pues hay que indicar tres cosas: 


— nombre del fichero (si se trata de un fichero nuevo, que comenzamos 
a cargar, éste es el momento de “bautizarlo”). 


— número del fichero. Tu microordenador tendrá capacidad para traba- 
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jar simultáneamente con 7 u 8 ficheros. Al abrir un fichero has de asig- 
narle un número que lo distinguirá de los demás ficheros en acción. 


— si el fichero se abre para meter datos en él, o para leer los datos que 
tiene. Puede sorprenderte que al abrir un fichero haya que señalar esto, 
pero es así. 


Veamos algunos ejemplos: 
109 OPEN 5,1, “NOTAS” 


abre el fichero “NOTAS” asignándole el número 5, con el código 1, que supon- 
dremos que es el de escribir, es decir, meter datos en el fichero. Como es un fi- 
chero nuevo, el nombre de “NOTAS” se lo hemos puesto ahora, en la línea 10f. 


130 OPEN 3,/, “NOMBRES” 


Esta instrucción abre el fichero llamado “NOMBRES” asignándole el nú- 
mero 3, con el código f), que supondremos es el de leer datos del fichero. 


Para cerrar un fichero basta señalar su número. Para los ejemplos anterio- 
res sería: 


22 CLOSE 5 
27 CLOSE 3 


Para escribir datos en un fichero se utiliza la instrucción PRINTF, que tra- 
baja igual que PRINT sólo que añadiendo el símbolo + y el número del fichero: 


1209 PRINTA 5:N,7,A$,“BYE” 
189 PRINTA S:“HOLA”K..00 1 


Estas dos instrucciones graban en el fichero 5 los datos: valor de N, 7, 
valor de A$, “BYE”, “HOLA”, valor de K y .001; los mismos que habrían sali- 
do en la pantalla quitando en las dos instrucciones los caracteres $45. El primer 
signo de puntuación, que en nuestro ejemplo es dos puntos (:) suele ser distin- 
to de los restantes (en nuestro ejemplo comas (,) ). Para utilizar estas instruccio- 
nes sin error es necesario que el fichero 5 se haya abierto previamente para 
grabar. 


Para leer datos de un fichero se utiliza la instrucción INPUT, cuyo fun- 
cionamiento es análogo al de PRINTF. 
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129 INPUT 3:A,B,C$,D$ 
189 INPUT 3:1,J,K,LS$ 


Estas dos últimas líneas habrían leído cuatro datos cada una, asignándolos 
respectivamente a las variables: 


A,B,C$ y D$ 
L,J,K y LS 


EJEMPLO S5. Un profesor quiere llevar las notas de sus alumnos en un 
fichero de ordenador. Lo primero que necesita es introducir en el fichero los 
nombres y las notas que ya posee de los alumnos, que supondremos serán tres. 


1 REM FICHERO DE NOTAS DE 35 ALUMNOS 
29 OPEN 1,1 “NOTAS” 

3Q FOR I=1 TO 35 

4 INPUT “NOMBRE”:N$ 

SY INPUT “NOTAS”;A,B,C 

6f PRINTA 1:N$,A,B,C 

79 NEXT 1 

8f) CLOSE 1 

90 END 


Tras abrir el fichero se inicia un bucle en el que, por 35 veces, el progra- 
ma preguntará el nombre y notas de un alumno, y a continuación se van gra- 
bando en el fichero. Al acabar con las 35 personas se termina el bucle y se cie- 
rra el fichero. El profesor ya tiene sus datos en una cassette. 


Pero hace un nuevo examen, y desea anotar la cuarta nota en cada alumno 
de su fichero. El profesor podría hacer un programa como éste: 


S REM ACTUALIZACION DE NOTAS 
IQ DIM A$(35),A(35),B(35),C(35),D(35) 
20 OPEN 3,0,“NOTAS” 

3 FOR I=1 TO 35 

49 INPUT 3:ASOD,AMD,BOD,C(D) 

SQ NEXT I 

6f$ CLOSE 3 (Queda leído el fichero) 

70 OPEN 5,1, “NOTAS” 

890 FOR I=1 TO 35 


205 


99 PRINT “NUEVA NOTA DE”;AS(1); 
109 INPUT D(D) 

119 PRINT% S:ASOD,A(0D,BO0D,C0D,D(M 
129 NEXT 1 

130 CLOSE 5 

149 END 


Es necesario, como se hace en el primer bucle, volcar el archivo en la me- 
moria del ordenador. En el segundo bucle se van añadiendo notas, y escribiendo 
los valores de antes y el nuevo, en el archivo. 


Si a fin de curso el profesor quiere dar la nota media, de 7 notas que su- 
pondremos que tiene de cada alumno, le puede servir el siguiente programa: 


1 REM NOTA MEDIA 

20 OPEN 2,M, “NOTAS” 

3 FOR I=1 TO 35 

4 INPUTA 2:S$,A,B,C,D,E,F,G 

SY LET M=(A+B+C+D+E+F+G)y/7 
6 PRINT AS$,M 

70 NEXT 1 

8f CLOSE 2 

9) END 


9.6 FICHEROS DE ACCESO DIRECTO 


Los ficheros de acceso secuencial tienen limitaciones importantes si nues- 
tro enfoque de la Informática es ambicioso. En ellos para modificar un dato es 
necesario leer por completo el archivo y volverlo a escribir corregido. Si para 
corregir una sola nota, de un alumno que ha reclamado por ejemplo, hay que 
leer y reescribir todo el fichero, esto ya no es tan cómodo. En una cassette, in- 
cluido el tiempo de maniobra, rebobinado, etc., puede llevar unos cuantos mi- 
nutos. 


Es igualmente grave que, de ordinario, cuando se trabaja con cassette, para 
modificar o añadir datos a un fichero es necesario volcar su contenido en la me- 
moria del ordenador. Un fichero importante excede esa capacidad, y no puede 
ser tratado mediante acceso secuencial. 


Estos problemas se solventan con los ficheros de acceso directo, que utili- 
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zan unidades de discos (en microordenadores generalmente discos pequeños 
flexibles, floppy disks). 


De un fichero de acceso directo se pide que haga con rapidez las siguientes 
operaciones: 


— altas (añadir nuevas fichas al fichero) 
— modificaciones 

— consultas de una ficha 

— bajas 

— proporcionar un listado 


Observa por ejemplo la tercera operación. Para consuítar un dato en un fi- 
chero secuencial hay que leerlos todos, al menos hasta llegar a él. Con el fichero 
de acceso directo esto no es necesario. 


El único inconveniente es el precio de las unidades de discos, que hará que 
no las adquieras si no te son realmente necesarias. Lo malo es que en cuestiones 
de discos, manejando ficheros de acceso directo, las instrucciones varían muchí- 
simo entre unos equipos y otros, y se sale de los objetivos de este libro el hacer 
aquí una especie de denominador común. El día que te decidas a afrontar este 
problema tendrás que resolverlo para tu caso concreto, leyendo el manual del 
equipo o consultando a tus proveedores. 


RECUERDA 


DATA OPEN 


READ CLOSE 
RESTORE INPUT 
PRINT+ 
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9.1) 


9,2) 


9.3) 


9.4) 


9.3) 


9.6) 


9.7) 


9.8) 
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EJERCICIOS 


La máquina lee unos nombres de personas almacenados en unas líneas 
DATA, y va escribiendo los nombres en la pantalla, precedidos de los nú- 
meros 1, 2, 3, etc. 


Usando las instrucciones READ—DATA asignar los valores —1.6E-6, 
—5Q0,.4077, MAYO, OCTUBRE, 100, 110, 120, 130, 140, 150 a las 
variables C1, C2, C3, X$, Y$, Z(1), Z(2), Z(3), Z(4), Z(5) y Z(6). Que al 
final aparezca en la pantalla: 


C1 = —1.6E-6 
C2=-—S5Q0 
C3= 4077 
X$=MAYO 

e o o 


Resuelve el ejercicio 7.10) de simulación de unas elecciones introducien- 
do los nombres de los candidatos en instrucciones DATA. 


Introducir en instrucciones DATA los equipos de primera división de fút- 
bol y el número de partidos ganados por cada equipo. Que el programa 
saque en pantalla los nombres de todos los equipos, y a continuación, a 
la derecha, a partir de un cierto lugar (función TAB), un diagrama de ba- 
rras con tantos espacios como victorias haya logrado ese equipo. 


Resuelve el ejercicio 6.15) de diagrama de barras de la evolución de una 
población, introduciendo los valores mediante instrucciones DATA. 


Prepara un programa que permita formar una tabla de 6 x 6 elementos 
(6 filas y 6 columnas) tomando números que figuren en sentencias DATA. 


Preparar un programa que cree simultáneamente dos tablas de distinto 
número de elementos, una numérica y otra alfanumérica (por ejemplo 
DIM A5$(3,4),B(5,2) ), a partir de sentencias DATA. 


Tenemos una serie de sentencias DATA en las que figuran los nombres 
y edades de quince personas. Formar dos tablas de cinco filas y tres co- 


9.9) 


lumnas cada una, una numérica y otra alfanumérica. El programa ha de 
permitir la exhibición de la tabla que solicitemos, hasta que ordenemos 
finalizar. 


Preparar un programa que, utilizando para almacenamiento de un texto 
sentencias DATA, cuente el número de vocales, letras y palabras. 


9.10) En un programa semejante al anterior calcular la frecuencia absoluta de 


cada letra. 


9.11) Hacer otro programa parecido a los anteriores, pero calculando la fre- 


cuencia relativa de las palabras de longitud 1, 2,3,..., 20. 


9.12) Construir un programa que, tomando la información necesaria de líneas 


DATA, forme la tabla periódica de los elementos químicos. Para cada 
elemento ha de figurar, además de su símbolo, su número atómico, peso 
atómico y configuración electrónica. Te recomendamos utilizar una sola 
cadena para cada elemento conteniendo toda esa información. En la ca- 
dena los dos primeros lugares se pueden reservar para el símbolo, los tres 
siguientes para el número atómico, cinco más para el peso atómico, etc.; 
los lugares que un elemento no necesite se dejan a la izquierda y se llenan 
con guiones, por ejemplo: 


—-H —-—1 1.008 1... 
HE —-—2 4.003 2... 
LI -—-3 7.016 21... 


Este programa, además de formar la tabla, ha de permitir: 


a) Comprobar su correcto almacenamiento tanto por filas como por co- 
lumnas. 


b) Proporcionarnos en la pantalla toda la tabla periódica en su disposi- 
ción tradicional, apareciendo sólo los símbolos de los elementos. 


c) Conocer, para un elemento cualquiera, su número atómico, peso ató- 
mico y configuración electrónica. 


9.13) Completar el programa anterior con una subrutina que permita conocer, 


para un compuesto dado cuya fórmula introduciremos desde el teclado, 
su peso molecular. 
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9.14) Un problema de topografía: se desea hacer el levantamiento topográfi- 
co de un terreno (un plano con curvas de nivel y situación de algunos lu- 
gares destacados). Para eso se establece un recorrido dentro del terreno. 


Fig. 9,1 


Se conocen las coordenadas (X1,Y1) de El y su cota (Z1). Mediante el 
taquímetro (aparato de topografía) se mira desde cada punto (Estación) 
al siguiente, y se obtienen tres datos: desnivel (Az), distancia d y ángulo 
a. con el Norte. Así las coordenadas de E2 serán: 


Xx2=X1 + d.sena 
Y2=Y1+d.cose 


y la cota de E2 será 

Z2=Z1+AZ 
Hacer un programa que, introduciendo en líneas DATA los valores di, 
o e Az¡ que se observan en cada estación, vaya calculando y sacando en 


la pantalla las coordenadas y cota de las estaciones. 


9.15) INTERPOLACION POR EL METODO DE LAGRANGE 


Se define como polinomio de Lagrange el polinomio de grado n: 
P(X) =yo*PAX) + y] PX) +... + yn-Pn(X) 
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(X-Xp + (X-X2)...(X=Xp) 


Donde Po(X)= 
EN o > E 0 > a) 


(X — Xo)-(X-X2)...(X-— Xp) 


10 
(X1 —Xo)-(X1 —-X2)...(X] — Xp) 
PO) = (X—Xo)-(X-—X1)... (X — Xn-1) 


On =Xod Ke «On Mp) 


El polinomio de Lagrange pasa por los puntos (Xo,Y o), (X1,Y1]),...., 
(Xn,Yn), y se utiliza para interpolar, para aproximar el valor de Y, 
correspondiente a valores intermedios de X. 


Haz un programa capaz de interpolar para cualquier valor intermedio de 
X el valor de Y, conociendo una serie de puntos (X¡, Y¡) por los que pasa 
la función, y que introducirás en líneas DATA. 


9.16) En un fichero constan los apellidos y el nombre de todos los alumnos de 
un curso. Preparar un programa que forme, a partir de este fichero, otro 
en el que estos mismos alumnos estén ordenados alfabéticamente. 


9.17) Prepara un programa que recupere un dato de un lugar, L, de un fichero 
y lo inserte en otro, J, de otro fichero. 


9.18) Haz un programa que sume los valores que figuran en dos ficheros que 
contienen datos numéricos, y que son de igual longitud, y que introduz- 
ca los resultados en un nuevo fichero, llamado “suma”, creado a este fin. 


9.19) En un almacén al por mayor se prepara semanalmente un fichero en que 
figuran, para cada artículo, su número de registro, nombre, precio, exis- 
tencias al principio de la semana y al final de ésta. Prepara, según los prin 
principios de la programación descendente, un programa que: 


a) almacene esta información en un fichero (considera solamente diez 
artículos). 


211 


b) avise si de algún artículo quedan en el almacén menos existencias de 
las que han sido vendidas durante la semana. 


c) nos presente un balance semanal en que para cada artículo figure su 
número de registro, nombre, número de unidades vendidas en la sema- 
na, precio unitario y montante de las ventas por ese artículo. Final- 
mente han de aparecer las ventas totales. 


9.20) Los cuatro miembros de un grupo rock han llegado a un acuerdo sobre el 
porcentaje que corresponde a cada uno por los ingresos de las diferentes 
canciones; este porcentaje varía de una a otra. Realiza un programa que 
contenga estos datos en sentencias DATA, y que les permita conocer los 
ingresos de cada uno en función de los ingresos que proporciona al grupo 
uha cierta canción. 


9.21) Prepara un programa que forme un fichero de listín telefónico personal. 
Ha de permitir la introducción de cualquier nuevo número en el lugar 
adecuado, de acuerdo con el nombre del abonado (orden alfabético). 
Para obtener un teléfono hemos de teclear el apellido y nombre del abo- 
nado, y el programa contestará el teléfono. Por si de algún amigo no re- 
cordamos el apellido, si tecleamos sólo el nombre, el programa contesta- 
rá con los apellidos y teléfono de todos los que tengan ese nombre, por 
ejemplo: 


TFNO. DESEADO? LOPEZ, CARLOS 
LOPEZ,CARLOS 6 78 9/ 12 


o bien: 
TFNO. DESEADO? CARLOS 


LOPEZ, CARLOS 6 78 9) 12 
PEREZ, CARLOS 4 56 78 9%) 


Sugerencia: utiliza una sola variable alfanumérica para introducir apellido, 
nombre y teléfono. 


9.22) Haz un programa análogo al anterior, pero que además proporcione nom- 
bre y apellido del abonado si le damos el número. 


9.23) Forma un fichero con la tabla siguiente: (datos de 1972): 
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PAIS COCHES POBLACION SUPERFICIE 


GRAN BRETAÑA ...... 13.6 . 106 55.9 .106 244. 103 Km2 
BELGICA ...<«sabarras A 9.8 “ qui” + 
DINAMARCA. ......... 1:2. * Y al1* + 
PRANCIA. 09 13.4 “ e ÓS 547 “ “ 
ALEMANIA FEDERAL .. 15.6 “ 62. * 248.6  “ 
IRLANDA. ¿coc 7c 080% 0.4 “ E A 103% + 
TADA 00 ras 123 * 54.9 “ JULI" * 
LUXEMBURGO........ 1 + 0.4 “ za”. * 
HOLANDA. sus cs 2.8 “ 13.4 * 40.8% “ 


Haz un programa que nos dé el número de habitantes por coche. Haz 
otro programa que nos dé la población y el número de coches de aquellos 
países que tengan una extensión menor de 100.000 km. 


9.24) Con los datos del ejemplo anterior prepara un programa que nos propor- 
cione la lista de todos los países de la tabla, ordenados según elijamos, de 
acuerdo con: 


a) Habitantes por coche 
b) Habitantes por km? 
c) Coches por km? 


9.25) En la siguiente tabla se presentan las veinte primeras industrias en ventas, 
en USA en 1976. Construye con la tabla un fichero. 


LU- VENTAS 
EMPRESA EN ACTIVIDAD 
GAR 
$.10% 

1 A A 48.630 Petróleo 

2 General Motors.............. 47.181 Automoción 
3 BOLO sastre adds 28.839 Automoción 
A 26.451 Petróleo 

S Mobil Oil................... 26.062 Petróleo 

6 Standard Oil of California...... 19.434 Petróleo 

TT GUIEO Lo sscosacra ii ira 16.451 Petróleo 

8 BM as 16.304 Electrónica 
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GAR EMPRESA 

9 General Electric. ............. 
A AAA 
11 A 
12 Standard Oil ................ 
13 Sil Oil 
1 A AA 
15 Atlantic Richfield ............ 
16 Do Potros 
17 Continental Oil.............. 
18 Western Electric ............. 
19 Procter € Gamble............ 
SN 


9.26) 


VENTAS 
EN 


15.697 
15.537 
11.764 
11,332 
9.229 
8.604 
8.462 
8.361 
4.957 
6.930 
6.512 
6.389 


ACTIVIDAD 


$. 10% 


Electrónica 
Automoción 
Teléfonos 
Petróleo 
Petróleo 
Acero 
Petróleo 
Químicas 

Petróleo : 
Electrónica 
Prod. de Consumo 
Petróleo 


Haz un programa que, tecleando la actividad, conteste con todas las em- 
presas que se dedican a ella, y los porcentajes de cada una, por ejemplo: 


ACTIVIDAD? AUTOMOCION 
GENERAL MOTORS 51.53 % 
FORD 31.50 % 

CHRYSLER 16.97 % 


Nuestra nave espacial posee un ordenador cocinero que contiene un 
fichero en el que constan las calorías por 100 gramos de los siguientes ali- 


mentos: 

A 263 
PS 377 
o 362 
Vitis ista aa 194 
Policia css 200 
CONBIO: cdas ido ció 180 
Jamón Serrano ............ 500 
Jamón York .............. 420 
SalchichdS:. mii 343 
BAcala0:.. di caen o aa 107 


Pescado 


Salmón cuco ciar 143 hs 
SAM e ta rre 115 id 
LERRUAÑO y <a 84 Ñ 
Salmonete................ 113 iS 
A 335 Legumbre 
Lentejas. .......... «co... 340 EN 
GarbanzOS...........ooo.o.. 320 y 
a 27 Verdura 
Alcachofas. ............... 21 3 
Coliflor suso rsnad 25 ““ 
Judías Verdes ............. 35 Bi 
A 83 sl 
e 20 dl 
LECCE: +. aida 65 Lácteos 
QUESO 2000 dr 370 NE 
Naradfas ....conacor opera 45 Fruta 
Manzanas. ................ 58 cs 
Mel socia 20 li 
Nuecés. oasis riadas 646 E 
UVAS ami a aaa 66 En 
Pr o ra a 63 ps 
Huevos (uno). .... Eno 81 Huevo 
Mantequilla............... 716 Grasa 
Aceite Oliva. .............. 891 ón 


En instrucciones DATA tiene la relación existente entre la edad de 
una persona y las calorías diarias a consumir: 


EDAD CALORIAS 
2 1000 
6 1400 
10 2000 
15 3200 
20 3500 
Hom bre 3000 
Mujer 2200 
65-70 2000-2500 
más de 70 1800-2200 


así como la edad de los diferentes viajeros: 
DATA PACO, 30, CARLOS, 4,... 


Haz un programa que permita a cada viajero, tras identificarse, elegir 
algunos de los alimentos que va a tomar en un día; tras ello el ordenador 
completará el menú determinando: 


a) Los demás alimentos, teniendo en cuenta que diariamente se ha de to- 
mar carne o pescado, verdura y fruta, huevos y grasa, y se pueden 
alternar las pastas y las legumbres (dejar alguna capacidad de elección 
o variación a la máquina). 


b) Las cantidades de cada alimento según criterios que tú mismo has de 
prefijar. 


9.27) Ampliar el programa para que los primeros días de la semana (calendario 
galáctico) se elija el menú semanal. 


9,28) A continuación reproducimos un cuadro de datos de las provincias espa- 
ñolas, para que con ellos puedas hacer más ejercicios de ficheros: 
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LT PI 
v60'£l 
16971 
SLy'S 
vLO'S 
1098 
Le9'8 
879'S 
vL6 Y 
v69S 
8sT'91 
EL6'T 
TvTL 
TIL'EI 
0657 
T6L'81 
L98'6 
ssT'9 
697'6 
v28"TI 
SL 
655'9 
9TLZ7I 
e6bv'pl 
SvO'L 
vssz 
128'S 
068'£7 
S88'p 
986'S 
9L61 OUY 


SOPe nor eur 
sous an 


ETT PLT 
99v HL? 
€6L'ZET'I 
085771 
79508 
68b"801 
095'TLT 
6L7'p07 
08/' TL 
evO'LTT 
OSL'poT 
6£T 79 
907 TZZ 
tE8 191 
SL9€6 
971187 
£8L'TIZ 
$60'091 
16€ LST 
vys"zEZ 
ESTIOZI 
8Tt6' SST 
8TL£8TI 
TISETZ 
187 1IZ 
E9v'9L 
v00'L7I 
109 L9€ 
608 ZTT 
990 LS 


9L61 OUY 
S9Je [pue] 


SEPUAALA 


807 
TLI 
6€8 
9L 
6€ 
6€ 
6L 
Lel 
81 
TOT 
bel 
91 
S77Z 
€9 
91 
887 
8pI 
18 
LT 
9L7 
EL 
19 
288 
er T 
68 
ve 
LTT 
081 
69 
IS 


9L61 OUV | 9/61 ouy 


TETL 
vsEL 
vE7 LT 
SL8'p 
v6rz 
£6€ € 
958'p 
9TV'S 
sIirz 
076'€ 
OSt'p 
TEL 
6L0'9 
90v'p 
SsTz 
90€'6 
8L8'S 
6vT'p 
vIOp 
858'9 
SL8'€ 
2667 
TE9"TE 
T99S 
EsTg 
SLET 
9ITE 
0€£6'8 
8£0'€ 
vI9I 


SIUOMUNJIJ | SOJUITUILIEN | SOFULOWIIIJEN 


16581 
9€0'61 
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9,29) 


9.30) 


9310 


LA INSTRUCCION GET 


Otra instrucción, más que de manejo de datos, de entrada de datos, es la 
instrucción GET. 


Es una instrucción semejante a INPUT muy utilizada en representaciones 
gráficas y en juegos. Al igual que INPUT, GET acepta un dato desde el 
teclado, pero se diferencia de INPUT en lo siguiente: 


12 GET no saca interrogación en la pantalla, no “estropea” una repre- 
sentación gráfica. 


22 GET no detiene la ejecución del programa: GET repasa el teclado 
buscando si has pulsado algo. Si has tecleado algún número, GET N 
asigna a N ese valor; si has tecleado una letra, GET A$ da a A$ ese 
valor, igual que INPUT N e INPUT AS. Si no has tecleado nada, GET 
P da a P el valor Y y GET Z$ da a Z$ la cadena “ ” (cadena nula). 


32 GET no saca en la pantalla tu respuesta y no necesita que se pulse 


[RETURN]. 


De ordinario se suele utilizar de la siguiente manera: 


40 GET AS 40 GETN 
SY IF AS=“” THEN 40 50 IF N=Q THEN 49 


organizando un bucle del que sólo saldrás al pulsar una tecla, y teniendo 
cuidado de si la tecla ha de ser un número o una letra. 


Ejecuta el siguiente programa y razona su funcionamiento: 


10 GET AS 

20 IF AS=“>” THEN 10 
39 PRINT AS 

49 GO TO1Q 

SO END 


Ejecuta y razona el siguiente programa: 


104 GET AS 

20 IF AS=“” THEN 10 

39 IF A$=CHR$(13) THEN 60 
40 PRINT AS; 
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5 GO TO 10 

60 PRINT *“ OTRA LINEA” 
79 GO TO 10 

80 END 


Observación: 13 es el código de la tecla | RETURN]. 


9.32) Diviértete con el siguiente programa: 


14 GET AS 

20 IF AS=“>” THEN 19 
39 FOR I=1 TO 12 

490 PRINT 

SQ NEXT 1 

60 PRINT TAB(17)“HUY” 
79 FOR I=1 TO 12 

80 PRINT 

90 NEXT 1 

109 GO TO 10 

119 END 
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APENDICE 


ESTUDIO DE LAS 
POSIBILIDADES GRAFICAS DE 
LOS MICROORDENADORES 


+ 


A.1 INTRODUCCION 


Hay ordenadores cuyo sistema operativo permite situar un carácter (numé- 
rico, alfabético o gráfico) en un lugar cualquiera de la pantalla, indicando dicho 
lugar por un par de coordenadas. Otros están dotados de alta resolución, pu- 
diendo entonces dibujar puntos, por sus coordenadas, en una pantalla dividida 
en 30.000, 50.000, 100.000 puntos, según ordenadores. Pero ni lo uno ni lo 
otro es imprescindible para sacar partido gráfico a nuestro ordenador. En este 
capítulo estudiamos la explotación de las posibilidades gráficas que ofrecen los 
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microordenadores dotados de monitor de T.V. sin alta resolución. El micro- 
ordenador que hemos utilizado nosotros descompone la pantalla en 25 filas 
(desde la O a la 24) y 40 columnas (desde la O a la 39), lo que da lugar a 1000 
cuadrados, en cada uno de los cuales podemos representar un símbolo numéri- 
co, literal o gráfico, estos últimos dentro de un pequeño alfabeto o juego de 
caracteres disponible. 


Un primer problema con el que nos encontramos es la no estandardización, 
no ya de las instrucciones, sino de las coordenadas en la pantalla. Hemos opta- 
do por situar el origen en el vértice superior izquierdo, que es la opción más ge- 
neralmente adoptada. 


Además de las instrucciones standard del BASIC, hemos utilizado las si- 
guientes, que por no ser propias del lenguaje, sino depender del constructor, 
cada uno las llama de una manera: 


— borrado: borra la pantalla y sitúa el cursor en el primer lugar de ésta (se 
encuentra en todos los microordenadores); 


— ir al origen: no borra la pantalla pero lleva el cursor al primer lugar. 


A.2 TABLAS 


Parece obligado comenzar cualquier estudio sobre graficación con un 
ejemplo de utilización de la función TAB para disponer apropiadamente una ta- 
bla en la pantalla. La orden TAB(X) lleva el cursor a la columna X, dentro de la 
fila en que se encuentra. Veamos un programa que nos proporciona una tabla 
numérica: 


1f$ (borrado de pantalla) 

20 REM ENCABEZAMIENTO 

30 PRINT TAB(5);“NUMERO”;TAB(16);*DOBLE”:TAB(25):“CUA- 
DRADO” 

4 FOR I=3 TO 34 

SQ PRINT TAB(I);*x*”; 

6 NEXT I 

65 PRINT 

7% REM TABLA 

8f) FOR N=1 TO 20 

9) PRINT TAB(6)N;¡TAB(16);2*N;TAB(26);¡N*N 
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100 NEXT N 
119 GO TO 110 
129 END 


El programa es muy sencillo: primero borra la pantalla (instrucción 1/); 
escribe el encabezamiento y lo subraya (hasta la fila 6) ); posteriormente, escri- 
be los valores requeridos para los números que van del 1 al 20; por último, la 
ejecución cae en un ciclo sin fin (instrucción 110). Tanto la instrucción 1( 
como la 11( tienen una función principalmente estética; la primera evita la per- 
manencia en pantalla de símbolos anteriores a la ejecución; la segunda, la llega- 
da de símbolos posteriores a ésta; unos y otros podrían estropear la claridad de 
los textos o dibujos, o llevarnos a confusión. 


A.3 REPRESENTACION DE FUNCIONES CON TAB 


Otra posibilidad que ofrece la función TAB es la de representar gráfica- 
mente funciones. Es inmediato pensar que si el origen de coordenadas puede si- 
tuarse en el vértice superior izquierdo y TAB(X) sitúa el cursor en la columna 
X, entonces para funciones FNF(X) positivas, TAB(FNF(X)) situará el cursor 
en la columna FNF(X). Así, considerando x creciente hacia abajo e y crecien- 
do de izquierda a derecha, podemos representar f(x) = 70/(x+1) con este sen- 
cillo programa: 


19 (Borrado) 
20 FOR X=1 TO 23 
39 PRINT TAB(7P/(X + 1) ); “+” 


49 NEXT X 
SP GO TO 5Q 
6fQ END 


cuyo segmento principal, las líneas 20 a 4, cumple la función de imprimir en 
el lugar adecuado un asterisco y esto lo hace 23 veces. 


Si queremos utilizar TAB para representar funciones cualesquiera, hemos 
de introducir un condicional que sólo permita actuar a esta instrucción cuan- 
do su argumento esté entre O y 39. El diagrama de flujo asociado será: 
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PRINCIPIO 


Fig. A. 1 


Para la función y = x? + 3, el programa quedaría así: 


5 

19 
29 
39 


35 
40 
sp 
69 


DEF FNF (X)=X12+3 

(Borrado) 

FOR X=1 TO 24 

IF FNF(X)>=0Q AND FNF(X)<=38 THEN PRINT TAB. 
(FNF (X) 33%”; 

PRINT 

NEXT X 

GO TO 50 

END 


En general, para representar cualquier función hemos de estudiar dos cues- 
tiones previas: cómo centrarla en la pantalla mediante traslaciones y cómo ele- 
gir la escala más conveniente. Si quisiéramos representar la función seno habría 
que dar dos pasos: 


a) Para centrarla, tendremos que representar la función y = sen (x) + 19. 


b)Pero la función seno oscila entre —1 y +1, y va a salir una línea vertical 
casi recta en el centro de la pantalla. Para que la amplitud de la repre- 
sentación abarque toda la pantalla, tendremos que representar la fun- 
ción y= 15 *sen (x) + 19, y así los puntos se moverán entre los espacios: 
15*x(-1) + 19=4 y 15x(1)+ 19= 34. 


En la práctica sustituimos la línea 5 por: 
5 DEF FNF(X)=19 + 15*SIN(X/5) 


donde la expresión X/5 como argumento del seno, surge de la necesidad de 
adaptar la escala de las X, teniendo en cuenta que las funciones trigonométricas 
en BASIC trabajan en radianes. 


A.4 REPRESENTACION DE MAS DE UNA FUNCION 


Lo que no puede hacer la función TAB es tomar, en una fila, un valor 
menor que otro que ya haya tomado en ella. Para poder representar simultánea- 
mente dos funciones, es necesario comenzar en cada fila por la de menor orde- 
nada. Veamos un ejemplo: 


S REM FUNCIONES 

19 DEF FNF(X)= 18*C0OS(X/5) 

20 DEF FNG(X)= 18*SIN(X/5) 

30 REM INTERVALO DE REPRESENTACION 

40 INPUT “ORIGEN DEL INTERVALO”;P 

5 INPUT “FIN DEL INTERVALO”;F 

6Y REM REPRESENTACION 

79 (Borrado) 

8) FOR X=P TO F STEP (F-—P)/23 

99 IF INT(FNF(X))= INT(FNG(X)) THEN C=1 
109 IF INT(FNEF(X) ) < INT(ENG(X)) THEN C=2 
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119 
120 
130 
149 
209 
219 
224 
254 
260 
214 
309 
310 
329 
409 


IF” INT(FNF(X) ) > INT(FNG(X)) THEN C=3 

ON C GOSUB 200,250, 300 

NEXT X 

GO TO 140 

REM SE CRUZAN LAS DOS CURVAS 

PRINT TAB(FNF(X)+ 18);*1” 

RETURN 

REM ELVALOR DE F(X) ES MENOR QUE EL DE G(X) 
PRINT TAB(FNF(X)+ 18);1”¡;TAB(FNG(X) + 18);“2” 
RETURN 

REM EL VALOR DE F(X) ES MAYOR QUE EL DE G(X) 
PRINT TAB(FNG(X)+ 18);2”;TAB(FNF(X) + 18);*1” 
RETURN 

END 


Fig A. 2 


A.5 SEGMENTOS 


También podemos emplear TAB para dibujar segmentos horizontales en 
una fila cualquiera. Para ello, tras borrar la pantalla, bajaremos el cursor a la fila 
requerida y, usando la función TAB, dibujaremos en los lugares precisos. 
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Como ya dijimos en el apartado 8.2, el empleo de las subrutinas resulta ex- 
tremadamente útil para favorecer la programación descendente. Podemos 
descomponer un proceso en programas parciales que desarrollamos aparte, em- 
pleando subrutinas, de manera que la posible complejidad o la longitud de un 
proceso parcial, no enturbie la simplicidad del general. Este procedimiento se 
puede emplear repetidamente en un mismo problema. 


Aunque alguno de los programas que siguen pueden ser realizados de ma- 
nera más simple sin emplear subrutinas, con fines didácticos y metodológicos 
hemos preferido utilizarlas para unificar el tratamiento de los problemas. 
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PRINCIPIO 


Fig. A. 3 


El programa asociado a estos diagramas será: 


1 REM SEGMENTO HORIZONTAL EN LA FILA FL 
9f) INPUT “FILA”;FL 

19) INPUT “PRINCIPIO”;P 

119 INPUT “FIN”;F 

130 (Borrado) 
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150 


160 


180 
190 
200 
300 
310 
320 
325 
330 
344 
350 
360 
374 
490 
410 
420 
430 
444 
450 


REM BAJAR A LA FILA 
GOSUB 300 

REM DIBUJO DEL SEGMENTO HORIZONTAL 
GOSUB 490 

GO TO 209 

REM SUBRUTINA DE BAJADA 

G=0 

REM SIG=FL-1 HEMOS BAJADO BASTANTE 
IF FL=Q0 THEN 379 

IF G=FL-1 THEN 370 

PRINT 

G-6 41 

GO TO 339 

RETURN 

REM SUBRUTINA DEL DIBUJO 

FOR I=P TO F 

PRINT TAB(D¿“x”; 

NEXT 1 

RETURN 

END 


Para dibujar un segmento vertical en la columna C, desde la fila P a la F, 
vamos a emplear otro programa análogo, en el que nos volveremos a encontrar 
con la subrutina 30f, que rara vez vamos a abandonar ya. 


w 

199 
119 
129 
130 
149 
159 
290 
210 
220 
300 
319 
320 
330 


INPUT “COLUMNA”:;C 

INPUT “PRINCIPIO”;P 

INPUT “FIN”;F 

(Borrado) 

REM BAJADA A LA FILA PRINCIPIO 
FL=P 

GOSUB 300 

REM DIBUJO DEL SEGMENTO VERTICAL 
GOSUB 500 

GO TO 22 

REM SUBRUTINA DE BAJADA 

G=Y 

REM SIG=FL-1 HEMOS BAJADO BASTANTE 
IF G=FL-1 THEN 370 


349 
350 
360) 
370 
500 
s10 
520 
530 
s40 
600 


PRINT 

G=G+1 

GO TO 330 

RETURN 

REM SUBRUTINA DEL SEGMENTO VERTICAL 
FOR I=P TO F 

PRINT TAB(C);%*” 

NEXT 1 

RETURN 

END 


Entretenerse en dibujar segmentos puede parecer pueril, pero su dominio 
nos abre el camino a otros tipos de representaciones, el más simple de los cuales 
tal vez sea el diagrama de barras. 


A.6 DIAGRAMA DE BARRAS HORIZONTALES 


Representar la información, contenida en una tabla, mediante un diagra- 
ma de barras horizontales es trivial si los valores a representar están compren- 
didos entre O y 39. Nosotros vamos a pedirle al programa que, antes de repre- 
sentar, calcule la escala apropiada. Necesitamos un algoritmo que haga lo si- 


guiente: 


1. Escribir el encabezamiento general 

2. Hacer lectura de datos 
hasta que se encuentre con “ZZZ” (testigo) 
hacer 


Hacer escritura del nombre de la fila hasta un máximo de diez carac- 
teres 
Hacer cuenta de la cantidad de filas (N) 


Fin de Hacer 


3. Hacer cálculo de la escala (subrutina 60) 


4. Hacer N veces (índice 1) 


Hacer representación del segmento horizontal (subrutina 700) 


Siguiente vez 
FIN 
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Elaboramos un diagrama de flujo apropiado: 


PRINCIPIO 


Encabezamiento 


Encabezamiento 
de fila 


Fig. A. 4 


No representamos el diagrama de flujo de la subrutina 7MQ, que dibuja el 
segmento horizontal, porque su única particularidad es que no se puede utilizar 
la instrucción FOR—NEXT, ya que si, con el cambio de escala, algún segmento 
fuera nulo, no habría de ser dibujado. 
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El programa resultante es el siguiente: 


REM DIAGRAMA DE BARRAS HORIZONTALES 
(Borrado) 

REM ENCABEZAMIENTO 

PRINT TAB(1S);“AÑO 1975” 

PRINT TAB(15);*- — — — — E 

PRINT 

PRINT 

REM ENCABEZAMIENTO DE LAS BARRAS 
READ E$,D 


IF ES=*“ZZZ” THEN 160 
PRINT LEFTS(ES,1(0) 
PRINT 

N=N+ 1 

GO TO 100 


REM SUBRUTINA PARA CALCULO DE ESCALA 
RESTORE 

GOSUB 600 

REM REPRESENTACION 


(Cursor al origen) 

PRINT 

PRINT 

PRINT 

PRINT 

FOR I=1 TO N 

GOSUB 700 

NEXT I 

GO TO 260 

REM CALCULO DE LA ESCALA 


REM OBTENCION DEL MAXIMO 
FOR J=1 TO N 

READ E$,D 

IF N=1 THEN MA=D 

IF D>MA THEN MA=D 

NEXT J 

RESTORE 

RETURN 

REM BARRA CORRESPONDIENTE 
REM LEER DATO NUMERICO 


7204 READ ES,D 
73 REM CAMBIO DE ESCALA 
749 D=(D*29)/MA 


745 L=0Y 
759 REM ¿HAY ALGO QUE REPRESENTAR? 
716% L=L+ 1 


765 IF INT(D)=Q THEN 810 

779 REM SIHAY 

780 PRINT TAB(9 + L);“*>”; 

789 D=D-1 

809 GO TO 750 

819 REM NO HAY QUE REPRESENTAR 

829 PRINT 

830 PRINT 

849 RETURN 

1000 DATA CINES, 8669, TEATROS, 68, TEATR. CINES, 1005 
1019 DATA CAMP. FUTBOL, 3230, PL. TOROS, 350, ZZZ, —1 
2000 END 


En el caso de valores muy similares en las diferentes barras, puede que es- 
temos más interesados por las diferencias entre ellos que por su similitud. Lo 
que podemos hacer es utilizar una escala relativa. Igual que antes al valor máxi- 
mo le asignábamos la longitud total disponible, ahora, además, al mínimo le 
asignaremos el cero. Se puede utilizar el programa anterior, sin más que interca- 
lar lo necesario para localizar el valor mínimo: 


630 IF N=1 THEN MI=D 
659 IF D<MI THEN MI=D 


además hemos de rectificar la línea 74() para el cálculo de escala: 


749 D=((D-MDx*29)(MA-—MD 
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Fig. A. 5 


A.7 CURVAS CON EL EJE OX HORIZONTAL 


Utilizamos dos subrutinas principales, la primera para dibujar los ejes y la 
segunda para dibujar la curva. Como hemos optado por representar la curva en 
los cuadrantes de abscisa positiva, el eje vertical queda pegado al margen iz- 
quierdo de la imagen; tras dibujar este eje, el cursor sube al origen y baja hasta 
la fila necesaria (Subrutina 13M) para dibujar el eje OX. La segunda subrutina 
comienza por estudiar el valor de la imagen de cada X y, si queda en los valores 
de pantalla, baja el cursor a la fila correspondiente y dibuja en la columna que 
corresponde al valor x (Ver Figs. A.5 y A.6). 


El programa correspondiente será: 


10 REM CURVA 

20 DEF FNF(X)=9*SIN(X/3) 
30 REM DIBUJO DE LOS EJES 
40 GOSUB 100 

50 REM DIBUJO DE LA CURVA 
60 GOSUB 250 

9) GO TO 9 

19Q REM DIBUJO DE LOS EJES 
119 REM EJE VERTICAL 

115 (Borrado) 

129 REM PARAMETROS APROPIADOS 
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PRINCIPIO 


P<I<F 
E 

R puede ser 1400 ó 1500, las rutinas 
Fig. A. 6 respectivas son casi iguales. 
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PRINT TAB((Q); “Y” 

P=1 

F=23 

C=1 

GOSUB 1500 

REM EJE HORIZONTAL 

REM PARAMETROS APROPIADOS 
FL= 13 

P=2 

F=37 

(Ir al origen) 

GOSUB 1300 

GOSUB 1400 

PRINT “Xx”; 

RETURN 

REM REPRESENTACION DE LA CURVA 
FOR X=2 TO 38 

(Ir al origen) 

FL= 12-INT(FNF(X-2) ) 

REM ?ES EXCESIVA LA ORDENADA? 
IF (FL< 1) OR (FL>23) THEN 330 
REM BAJADA 

GOSUB 1300 

PRINT TAB(X);".” 

NEXT X 

RETURN 

REM BAJADA 

G=4 

IE GS=FL-1 THEN 1370 

PRINT 

G=G+1 

GO TO 1330 

RETURN 

REM 

FOR I=P TO F 

PRINT TAB(D;*-—”; 

NEXT I 

RETURN 

REM 

(Ir al origen) 
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A.8 
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1519 FOR I=P TO F 
15204 PRINT TAB(C);“|>” 
1539 NEXT 1 

1544 RETURN 

READY 


NUBES DE PUNTOS CORRESPONDIENTES A DISTRIBUCIONES ES- 
TADISTICAS BIDIMENSIONALES 


Estas representaciones, como resulta fácil comprender, son muy semejan- 
tes a las anteriores; un programa que permite realizarlas es el siguiente: 


REM CAMPO DE LAS VARIABLES 
GOSUB 100 

REM DIBUJAR EJES 

GOSUB 2000 

REM REPRESENTAR LOS PUNTOS 
GOSUB 2504 

GO TO 70 

REM MAXIMOS Y MINIMOS 
READ XA, YA 

XI=XA 

YI=YA 

READ X, Y 

IF X<Q THEN 210 

IF X<XI THEN XI=X 

IF X>XA THEN XA=X 

IF Y<YI THEN: YI=Y 

IF Y>YA THEN YA=Y 

GO TO 140 

RESTORE 

RETURN 

REM RUTINA DE BAJADA 

G=4 

IF FL=Q THEN 1374 

REM SIG=FL-1 ESTAMOS EN LA FILA 
IF G=FL-1 THEN 1370 

PRINT 

G=(G+1 

GO TO 1330 


1379 RETURN 

2000 REM 

2020 (Borrado) 

20309 PRINT TAB(Y);¡MIDS(STRS(Y A),2,4); 

2049 FOR I=1 TO 22 

2050 IF 1=22 THEN PRINT TAB(Q);¡MIDS(STRS(Y D,2,4); 

2060 PRINT TAB(4);“ |” 

207) NEXT I 

2089 FOR I=5 TO 38 

2099 PRINT TAB(D;*-”; 

2100 NEXT I 

211 PRINT 

2120 PRINT TAB(S);¡MIDS(STR$(XD),2,4);TAB(34);¡MIDS(STR$(XA), 
2,4) 

2130 RETURN 

2500 REM NUBE 

2505 (Ir al origen) 

251 READ X,Y 

2520 IF X<Q THEN 2600 

2530 X=((X-XDx*x34/(XA-XD )+5 

2540 FL=INTQ1-—Y—YD*x21/(YA—YD ) 

2550 REM BAJADA A FILA CORRECTA 

2560 GOSUB 1300 

257f PRINT TAB(X);“.” 

2584 GO TO 2505 

2600 RETURN 

3000 DATA 101,219,113,250,125,300,140,310,173,340,180,400,—1,—1 

3100 END 


Animamos al lector a elaborar los diagramas de flujo correspondientes a 
este programa y a los restantes. 


A.9 ¿COMO COMPORTARSE EN SOCIEDAD CUANDO NO SE POSEE 
DOMINIO DEL CURSOR? 


Cuando el ordenador en que estamos trabajando no dispone de la posibili- 
dad de mover libremente el cursor, la mejor estrategia nos parece barrer la pan- 
talla por filas, de arriba a abajo, y en cada fila de izquierda a derecha; así pode- 
mos producir una imagen en forma análoga a como lo hace la televisión. 
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Esto es lo que hacemos en el programa que sigue. En él situamos el origen 
en el centro de la pantalla y en cada punto, (x, y), estudiamos si se cumple 
y =f(x); en caso afirmativo dibujamos un punto de la curva; en los lugares en 
que x=0 dibujamos un segmento vertical. Lo anterior lo hacemos para los pun- 
tos de los cuadrantes superiores; luego dibujamos el eje OX y repetimos, lo ya 
hecho, para los cuadrantes inferiores. 


Es imprescindible que los valores de f(x) sean enteros; en caso contrario 
no habrá representación, pues nunca será y =f(x), ya que y es entero. 


10 REM PROGRAMA PRINCIPAL 

29 REM CUADRANTES SUPERIORES 

30 DEF FNF(X) = INT (0*25*(X12+3x*X-40) ) 
50 P=11 

60 F-=1 

79  GOSUB 1000 

80 REM EJE HORIZONTAL 

9  GOSUB 2000 

35 PRINT 

19Y REM CUADRANTES INFERIORES 

119 P=-1 

129 F=-11 

139 GOSUB 1000 

149 GOTO 140 

1009 REM CUADRANTES SUPERIORES 
1919 REM PARA CADA FILA 

1929 REM Y=P TO F STEP -1 

193 REM PARA CADA ELEMENTO DE ELLA 
1049 A= —19 

105Y B= —1 

196Y REM ¿PASA POR EL LA CURVA? 

1079 GOSUB 5000 

1089 REM ¿CORTA AL EJE? 

1999 REM SI 

1100 IF FNF(Q)=Y THEN PRINT TAB(19); “x”; 
1119 REM NO 

1129 1F FNF(PQ)<>Y THENPRINT TAB(19); “1”; 
1139 REM PARA LAS X POSITIVAS 

1149 A=1 

1159 B=19 

1160 GOSUB 5000 
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1179 REM SIGUIENTE FILA 

1189 PRINT 

1199 NEXT Y 

1209 RETURN 

2000 REM EJE DE ABSCISAS 

2019 REM SEMIEJE NEGATIVO 

2020 A=-—19 

2030 B=-1 

2049 GOSUB 3000 

2059 REM ORIGEN 

206Y GOSUB 4000 

207Y REM SEMIEJE POSITIVO 

2080 A=1 

2099 B=19 

210Q GOSUB 3000 

2119 RETURN 

3000 REM ¿DONDE HAY CURVA? 

3019 FOR X=A TO B 

3020 IF FNF(X)=0 THEN PRINT TAB(X+19); “x”; 
3039 IF FNF(X)<>0Q THENPRINT TAB(X+19); “—”; 
3040 NEXT X 

3059 RETURN 

400 REM CORTA AL ORIGEN? 

4019 IF FNF(Q)=0Y THEN PRINT TAB(19); “x”; 
4020 IF FNF(P9)<>Q THEN PRINT TAB(19); “+”; 
40309 RETURN 

S0QQ REM ¡PASA POR UN PUNTO? 

501Q FOR X=A TO B 

5024 REM EN CASO AFIRMATIVO, SEÑALARLO 
5039 IF FNF(X)=Y THEN PRINT TAB(X+19); “x*”; 
5Q04Q NEXT X 

5Q5Y RETURN 

510Q END 


A.10 REPRESENTACION DE SUPERFICIES 


Una manera sencilla de representar superficies es por sus curvas de nivel, 
pero esto sólo es posible, por lo general, cuando se dispone de alta resolución. 
El método más cercano, en baja resolución, es la representación de la cota de 
cada punto. Eso hemos hecho en el programa que sigue, que en lo demás conti- 
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núa el sistema de barrido que ya hemos presentado. 


¡ 


$ 


¡ 


++ DD 
us$ 


ARANDA 
ARA 
+ 


3 
ll 
dd 

Ñ 
144 


A 
SD 9D ODA 
DDD OA 


DUsEEia 


Fig. A. 7 


10 (Borrado) 

29 REM PARA TODAS LAS FILAS 

3 FOR Y=11 TO -—11 STEP -1 

9) REM PARA CADA LUGAR DE ESA FILA 

10Q FOR X=-19 TO 19 

11 REM VALOR DE LA FUNCION EN EL PUNTO 
129 Z=SQR((:8*X12+2* Y12)/3 

13 REM REPRESENTARLO 

149 PRINT TAB(X+19):MIDS(STRS(INT(Z) ), 2, 1); 
159 NEXT X 

16) NEXT Y 

170 GOTO 170 

18) END 


Si no deseamos una representación numérica, sino gráfica, podemos susti- 
tuir la línea 14f) por 


135 156 Z>S THEN Z=5 
149 ON Z GOSUB 300,350, 400, 450, 500 
145 PRINT TAB(X + 19);A$; 


añadiendo, además, las subrutinas: 
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Fig. A. 8 


300 Af=“ ” 
31 RETURN 
35D A$S=" ” 
36Q RETURN 
400 AS=“e” 
419 RETURN 
450 A$S=“e” 
460 RETURN 
SOY AS=“e” 
s1p RETURN 
A.11 MAPAS 


El mapa de España consta de lo que, geométricamente hablando, serían 
17 regiones disjuntas. Hemos superpuesto a este mapa un acetato cuadriculado 
con 25 filas y 40 columnas y ha resultado que, por ejemplo, Andalucía está 
situada en varias filas (ver líneas 3000) a 3/18) la primera de ellas la 15; además, 
estas filas son 8, y en la primera presenta dos segmentos disjuntos, luego nece- 
sitamos cuatro valores, dos por segmento (su origen y extremo). Atendiendo a 
estas características, hemos construido una tabla para cada región utilizando 
sentencias DATA. Con estas tablas podemos representar la distribución de los 
valores de una variable. Estos valores los asignamos en las líneas 130 a 160; en 
las líneas 20f a 295 hacemos un cambio de escala para que los valores extre- 
mos sean 0 y 9. 
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242 


19 

29 

39 

4 

59 

69 

70 

80 

199 
119 
129 
139 
149 
150 
169 
170 
200 
205 
210 
229 
239 
249 
250 
269 
270 
280 
299 
295 
400 
419 
415 
420 
425 
430 


444 
450 
464 
470 
48 


REM MAPA 

REM ENTRADA DE VALORES 

GOSUB 190 

REM PASAR A VALORES DE JREPRESENTACION 
GOSUB 200 

REM DIBUJO DEL MAPA 

GOSUB 440 

GO TO80 

REM SUBR. DE ENTRADA DE VALORES 
(Borrado) 

DIM L(17) 

FOR I=1'TO 17 

PRINT 1 

INPUT L(1) 

NEXT 1 

RETURN 

REM SUBR. DE CAMBIAO DE ESCALA 
REM VALOR PROVISIONAL DEL MAXIMO 
MA=L(1) 

REM BUSQUEDA DEL MAXIMO DEFINITIVO 
FOR I=2 TO 17 

IF LID)>MA THEN MA=L (I) 

NEXT 1 

REM CAMBIO DE ESCALA 

FOR I=1 TO 17 

L() =9.9*L(D/MA 

NEXT 1 

RETURN 

REM SUBR. DE DIBUJO DE MAPA 

REM PARA CADA ZONA 

(Borrado) 

FOR J=1 TO 17 

(Cursor al origen) 

REM LEER FILA DE COMIENZO, Y NO. DE FILAS Y COLUM- 
NAS 

READ FL, NF, NC 

REM BAJAR A ESA FILA [FL] 

GOSUB 1300 

REM PARACADA FILA 

FOR K=1 TO NF 


REM LEER PRINC. Y FIN, DE 2 EN 2 
FOR L=1 TO NC-—1 STEP 2 

READ P, F 

REM ?HAY SEGMENTO? 

IF (L>1) AND (P=0Q) THEN 560 
REM SI HAY. IR A DIBUJARLO 
GOSUB 1400 

NEXT L 

PRINT 

NEXT K 

NEXT J 

RETURN 

REM BAJADA 

IF FL=Q THEN 1370 

G=4 

REM SIG=FL-1 HEMOS BAJADO BASTANTE 
IF G=FL-1 THEN 1370 

PRINT 

G=G+1 

GO TO 1330 

RETURN 

REM SUBR. DE SEGMENTO HORIZONTAL 
FOR I=P TO F 

REM IMPRIMIMOS EL NO. APROPIADO EN EL LUGAR CO- 
RRECTO 

PRINT— TAB(D;¡MIDS(STRS(L() ),2,1); 
NEXT I 

RETURN 

REM ANDALUCIA 

DATA 15,8,4 

DATA 9, 10, 13, 16 

DATA 8,17,9,0 

DATA 4,18,0,0 

DATA 3,18,0,0 

DATA 5,18,0,0 


DATA 6,11,0,0 


DATA 7,9,0,0 
DATA 8,9,0,0 
REM ARAGON 
DATA 2,9,2 
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3944 
3046 
348 
3050 
3052 
3954 
3056 
3058 
3060 
3070 
3972 
3074 
3076 
3078 
3999 
3092 
3994 
3096 
3098 
3100 
3102 
3119 
3112 
3114 
3116 
3118 
3120 
3122 
3124 
3149 
3142 
3144 
3146 
3148 
3160 
3162 
3164 
3166 
3168 
3170 


DATA 19, 23 

DATA 19,23 

DATA 19, 23 

DATA 17,22 

DATA 17,23 

DATA 18,22 

DATA 19, 21 

DATA 18,21 

DATA 19,19 

REM ASTURIAS 
DATA 0,3,2 

DATA 4,9 

DATA 5,8 

DATA 5,5 

REM BALEARES 
DATA 8,5,2 

DATA 35,35 

DATA 32, 32 

DATA 31,33 

DATA 32, 32 

DATA 28, 28 

REM CANARIAS 
DATA 17,6,6 

DATA 37,370,0,0,0 
DATA 36,36,0,0,0,0 
DATA 24,24, 36,36,0.0 
DATA 28,29,0,0,0,0 
DATA 26,26, 28, 29, 32, 33 
DATA 24,24,32,33,0,0 
REM CANTABRIA 
DATA (,3,2 

DATA 10, 13 

DATA 10,11 

DATA 11,11 

REM CASTILLA-LEON 
DATA 2,10,4 

DATA 9,9, 12, 13 
DATA 6,10, 12,13 
DATA 5,13,0,0 
DATA 5,16,0,0 


3172 
3174 
3176 
3178 
3180 
3182 
3190 
3192 
3194 
3196 
3198 
3200 
3202 
3204 
3220 
3222 
3224 
3226 
3228 
3240 
3242 
3244 
3246 
3248 
3250 
3232 
3254 
3256 
3274 
3272 
3274 
3276 
3278 
3280) 
3282 
3284 
3390 
3302 
3304 
3306 


DATA 5 
DATA 6 
DATA 5, 
DATA 5 
DATA 5 

8 


Z 


REM CATALUNA 
DATA 2, 6, 4 
DATA 24,25, 29, 31 
DATA 24,30,0,0 
DATA 24,29,0,0 
DATA 23,28,0,0 
DATA 24,26,0,0 
DATA 23,24,0,0 
REM EUSKADI 

DATA Q,3,2 

DATA 14,17 

DATA 14,16 

DATA 14,15 

REM EXTREMADURA 
DATA 10,7,2 

DATA 5,7 

DATA 5, 
DATA 4, 
DATA 4,10 
DATA 5, 
DATA 4, 
DATA S, 
REM GALICIA 


8 
8 
1 
9 
8 
7 


REM MADRID 
DATA 7,3,2 
DATA 12,13 
DATA 12,14 
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3308 DATA 11,14 
3324 REM MANCHA [CASTILLA—LA] 
3322 DATA 7,9,4 
3324 DATA 14,17,09,0 
3326 DATA 15,18,0,0 . 
3328 DATA 15,17,0Q,0 
33304 DATA 10,18,9,0 
3332 DATA 9,18,0,0 
3334 DATA 9,19,0,0 
3336 DATA 11,20,0,0 
3338 DATA 10,19,0,0 
3349 DATA 11,12, 17,17 
3350 REM MURCIA 
3352 DATA 14, 4,2 
3354 DATA 20,20 
3356 DATA 18,24 
3358 DATA 18,21 

336f DATA 19,20 
337f REM NAVARRA 
3372 DATA 1,4,2 
3374 DATA 17,18 
3376 DATA 16,18 
3378 DATA 17,18 
3384 DATA 18,18 
339f REM RIOJA 

3392 DATA 3,2,2 
3394 DATA 14,16 
3396 DATA 14,17 
341f REM VALENCIA 
3412 DATA 8,8,2 
3414 DATA 22,23 
3416 DATA 22,23 
3418 DATA 20, 22 
3424 DATA 19,22 
3422 DATA 2/, 22 
3424 DATA 21,23 
3436 DATA 21,23 
3448 DATA 21,22 
4000 END 
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Fig. A. 9 


A.12 GRAFICOS ANIMADOS 


En ocasiones puede ser conveniente utilizar un gráfico con movimiento. 
Hay dos posibilidades: que el operador mueva la imagen o que lo haga el orde- 
nador. 


Hemos preparado dos ejemplos, ambos relacionados con el laberinto de 
Creta. En el primero es el operador quien mueve la imagen; el ordenador, tras 
dibujar el laberinto, proporciona instrucciones para guiar a Teseo. La mayor par- 
te del programa se dedica al laberinto, que se dibuja utilizando segmentos ho- 
rizontales y verticales: son las líneas 5 a 24(, 1300 a 1370 (rutina de bajada 
ya conocida); 140 a 1540, que dibujan el laberinto con los datos almacenados 
en las líneas 2000 a 2126. Las líneas 25N a 310 son de instrucciones, y la línea 
clave es la 430), que decide la dirección de Teseo en cada paso. 


5 REM 

10 (Borrado) 

29  FORJ=1TO2 

30 REM LEEMOS NO. DE FILAS Y DE COLUMNAS 
40 READ NF, NC 

50 REM PARA CADA FILA 

60 FOR K=1 TO NF 

70 REM LEEMOS EL TERMINO DESTACADO 

80 READ TD 
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90 
95 
100 
119 
120 
130 
149 
150 
169 
179 
189 
199 
195 
200 
229 
240 
259 
260 
279 
280 
290 
300 
310 
330 
340 
350 
360 
374 
400 
419 
420 
439 
440 
1300 
1319 
1320 
1339 
1349 
1350 
1369 
1379 


FOR L=1 TO NC-1 STEP 2 

REM LEEMOS PRINCIPIO Y FIN DE SEG. 
READ P, F 

REM SI2=(Q NO HAY SEGMENTO 

IF P=(Q THEN 200 

REM BAJADA 

PF -1=1- ¡THEN FL=TD 

M2 THEN: FL=P 


GOSUB 


1399 


REM DIBUJO DE SEGMENTO APROPIADO 
IF J=2 THEN C=TD 

ON J GOSUB 1400, 1500 

(Curso al origen) : 

NEXT L 

NEXT K 

NEXT J 

REM LEYENDA 


FL= 18 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 


B 1300 
“TESEO VA HACIA EL NORTE CON... 1” 
pe EL ESTE CON ..... 2" 
ld EL SUR CON........ 3 
se EL OESTE CON.... 4” 


REM SITUAMOS A TESEO 
(Cursor al origen) 


FL=16 


GOSUB 
PRINT 


1300 
TAB(27);*.”; 


REM MOVIMIENTOS DE TESEO 

GET T*$ 

IF” T$=“ ” THEN 410 

ON VAL(TS) GOSUB 1600, 1650, 1700, 1759 
GO TO 410 

REM BAJADA 


G=4 


REM SIG=FL-1 HEMOS BAJADO BASTANTE 
IF G=FL-1 THEN 1370 


PRINT 


G=G+1 
GO TO 1330 
RETURN 


1499 REM LINEAS HORIZONTALES 

141 FOR I=P TO F 

1429 PRINT TAB(D;“wm”; 

14309 NEXT 1 

1449 RETURN 

1599 REM LINEAS VERTICALES 

151) FOR I=P TO F 

1524 PRINT TAB (C);“w” 

1539 NEXT I 

154f$ RETURN 

160f) REM NORTE 

1610 (Cursor a la izquierda, cursos arriba);**.””; 
1629 RETURN 

165Y REM ESTE 

166f$ PRINT “.”; 

167) RETURN 

1700 REM SUR 

1719 (Cursor a la izquierda, cursor abajo);**.”; 
1724 RETURN 

1759 REM OESTE 

1760 (Cursor a la izquierda, cursor a la izquierda);*“.”; 
1779 RETURN 

2000 REM DATOS DE LAS HORIZONTALES 
2002 DATA 9,6 

2004 DATA 1,11,29,0,0,0,0 
2006 DATA 3,17,20,22,25,0,0 
2008 DATA 5,17,21,23,27,0,0 
2019 DATA 7,13,15,17, 19,21, 23 
2012 DATA 9,19, 21,23,27,0Q,0 
2014 DATA 11,15, 17, 19,20, 22, 24 
2016 DATA 12,24, 24, 26,28,0,0 
2018 DATA 13,17,20,0,0,0,0 
2029 DATA 14,11,26,28,29,0,0 
210 REM DATOS DE LAS VERTICALES 
2102 DATA 12,4 

2194 DATA 11,1,14,0,0 

2106 DATA 13,7,12,0,0 

2198 DATA 15,8,9,11,13 

211P DATA 17,4,4,8,10 

2112 DATA 19,8,8,0,9 
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2114 
2116 
2118 
2120 
2122 
2124 
2126 
3009 


DATA 20,10,10,0,0 
DATA 21,6,8,0,0 
DATA 22,12,13,0,09 
DATA 25,4,8,0,0 
DATA 26,10,11,0,0 
DATA 27,3,4,7,10 
DATA 29,1,14,0,0 
END 


Para el movimiento de la imagen por el ordenador, hemos optado por re- 
presentar, en el mismo laberinto, al Minotauro. Sustituimos las líneas 25f a 
450 y 1600 a 1770 por las siguientes: 


309 
310 
329 
330 
340 
345 
359 
360 
379 
38 
389 
399 
409 
419 
420 
430 
449 
454 
469 
465 
470 
484 
49 
509 
809 
819 


REM MINOTAURO 
(Cursor al origen) 

REM SITUACION INICIAL 
FL=4 

GOSUB 1300 

C= 14 

F=4 

PRINT TAB(14);%x*” 
(Cursor al origen) 

PRINT 

FOR I=1 TO 200 

S= 1+RND(7 )*4 

ON S GOSUB 800,820,840,860 


POR I=1 TO 53 


IF F<>I THEN 480 

FOR J=12 TO 16 

IF J=C THEN PRINT TAB(J);%*”; 
IF J<>C THEN PRINT TAB(J); “ 
NEXT J 

PRINT 

GO TO 490 

PRINT TAB(12);* y 

NEXT 1 

GO TO 370 

IF F<>1 THEN F=F-1 
RETURN 


82) IF C<>16 THEN C=C+1 
8309 RETURN 
849) IF F<>5 THEN F=F+1 


859 RETURN 
860 IF C<>12 THEN C=C-1 
879 RETURN 


En las líneas 39( y 400 el ordenador decide hacia dónde mover la imagen, 
pero sólo lo hace si las paredes lo permiten, subrutinas 890 a 870. 
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